bonjour,
en décomposant et comme suit, ça marche :
Sub recopie()
Dim Col As Long 'variable ligne
Col = Sheets("feuil1").Range("A1").Value 'col prend la valeur de la cellule a1
Range("A5:B9").Select 'selection de la plage
Selection.Copy 'copie de la plage
Sheets("Feuil3").Select
Range("A" & Col).Select 'selection feuille3 collone a ligne defini
ActiveSheet.Paste 'recopie le copié
Range("D4").Select 'place toi en
End Sub
A+