boucle sur une cellule liee

Bonsoir,

voici un code fait à l'enregistreur et je souhaite l'ameliorer
nous organisons pour une assoce un certain nbre de voyages 10/ans
donc j'ai une feuille "base Données; sorties; inscriptions; recettes;....
dans la base données j'ai une zone liste deroulante (cellule liee (A1)
la plage d'entrée sur la feuille sortie C9:C18 apres un filtre autom
les donnees sont recuperees par collage special sur la feuil "inscription"
puis les recettes de "base de donnees vers "recettes (janvier) "G10" et
l'intitulé du voyage en "A10"
donc je souhaite que le prochain voyage tout se deroule pareil mais la recette
doit aller en fevrier ("A26" et "G26" etc...)
pour cela il faut qu'il teste la cellule liee de la feuille "base donnees"
j'ai essaye par une boucle for next ca n' a pas marché
je m'en remets a vous
merci excusez de la longueur

Sub voyage1()
'
' voyage1 Macro
' Macro enregistrée le 21/12/2006 par Vermeil service
'

'
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("B4:F403").Select
Selection.Copy
Sheets("Inscription").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Sheets("Inscription").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Application.CutCopyMode = False

la il faut qu'il commence le test la cellule liee A1

Sheets("Sorties").Select
Range("A9:B9").Select
Selection.Copy
Sheets("Recettes").Select
Range("A10:B10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recettes").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Application.CutCopyMode = False
End Sub

--
andré