[VBA Débutant] Macro -> Répéter la même action sur plusieurs lignes

Salut!

Voilà mon problème: j'ai enregistré une macro en faisant un exemple sur 3 lignes:
-> J'ai copié un nom en Agents!A2 dans une case en Couverture!C22
-> J'ai copié le résultat apparut en '2007'!F42 dans une autre case à côté du nom original en Agents!G2

J'ai fais ça d'A3 en G3 et d'A4 en G4.

Le problème c'est que je dois faire ça jusqu'en A2789, et je n'arrive pas à faire répeter l'action que j'ai enregistré (je n'y connais rien en codage).

Voilà le code:



Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/04/2011 par stageDRHformation
'

'
Range("A2").Select
Selection.Copy
Sheets("Couverture").Select
Range("C22:E22").Select
ActiveSheet.Paste
Sheets("2007").Select
Range("F42").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Agents").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Couverture").Select
Range("C22:E22").Select
ActiveSheet.Paste
Sheets("2007").Select
Range("F42").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Agents").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Couverture").Select
Range("C22:E22").Select
ActiveSheet.Paste
Sheets("2007").Select
ActiveWindow.SmallScroll Down:=3
Range("F42").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Agents").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub




Est ce que vous pouvez m'aider?
Merci d'avoir lu!


Edit: Ah oui j'oubliais, je ne peux pas simplement copier la formule étant donner qu'elle contient déjà 3 cellules à formules qui contiennent elles mêmes des formules et c'est un véritable casse-tête