Aide sur une boucle

Bonjour à tous,
Je suis nouveau sur le forum mais je suis la qualité des interventions depuis pas mal de temps.
Enchanté!
J'ai besoin svp d'une aide sur une macro de boucle.
Voici ce que je veux faire:

-sur un onglet ou feuille ,copier le matricule dont le 1ier se trouve en A2.
-le coller dans la feuille à coté(dans le même classeur) dans la cellule J2 (cette cellule influence toutes les formules et graphiques que j'ai dejà crées dans cette même feuille).
-revenir sur la 1iere feuille et copier le nom qui se trouve sur la même ligne que A2(à savoir la cellule D2.
-retourner sur la 2ieme feuille et l'enregister sous format PDF sur le Bureau windows ou ailleurs...
-Au moment de l'enregistrement,coller le nom copier auparavant pour nommer le document pdf.

J'avais pensé à l'ordre "For next",mais il me manque une instruction dans la macro car l'action ne se répéte pas en passant au matricule suivant (A3,A4 etc.)
Pour info, il s'agit d'un projet de BSI que j'ai crée entièrement sur Excel et qui sera
a destination de 802 collaborateurs.
Donc, j'aurai tout intêret à automatiser cette tâche.

J'éspère avoir été assez précis, sinon n'hesitez pas à me demander des précisions.

Merci beaucoup d'avance.
Voici la macro:

Sub Macro1()
'
' Macro1 Macro
'

'

For i = 1 To 6
Selection.Copy
Sheets("Gardien").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("J2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("J2").Select
Sheets("Base gardien").Select
Range("A2").Select
Selection.Copy
Sheets("Gardien").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("Base gardien").Select
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "nom du collab"
Sheets("Gardien").Select
ChDir "C:\Users\U1003296\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\U1003296\Desktop\Monique TOUGARD.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Next
End Sub