Que rajouter dans cette macro pour faire une boucle?

[julien75017]

Bonjour à tous,

Je suis un débutant total en macro.
C'est la première fois que j'essaye.

Je vous explique ce que je veux faire.
Je veux sélectionner une référence dans le classeur A et la copier.
Aller dans un classeur B, cherche cette référence et si elle y est, copier 3 cellule et les copier dans le classeur A.

J'ai fais une macro qui marche mais je voudrais qu'elle se répète pour toutes les références de la colonne qui contient les références dans le classeur A.

Que rajouter et où?

Sub RESTEAPAYER()
'
' RESTEAPAYER Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+Q
'
Range("B21").Select
Selection.Copy
Windows("export_250216141953.xls").Activate
Cells.Find(What:="660301792", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("G1112:I1112").Select
Range("I1112").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("RESTEAPAYER.xlsx").Activate
Range("F21").Select
ActiveSheet.Paste
End Sub


Merci a vous pour votre aide

 

[thebenoit59]

Re : Que rajouter dans cette macro pour faire une boucle?

Je pense que si tu nous transmets tes fichiers, tu auras rapidement de l'aide.

 

[julien75017]

Re : Que rajouter dans cette macro pour faire une boucle?

Je ne peux pas les transmettre, il y a des informations sensibles dedans,je travail pour un grand groupe Français

 

[thebenoit59]

Re : Que rajouter dans cette macro pour faire une boucle?

Je me rends compte que je suis loin d'être bon dans mon traitement, et dans mes explications ...
Mais ça pourra t'avancer.

 

[julien75017]

Re : Que rajouter dans cette macro pour faire une boucle?

Merci a toi, je vais essayer avec ça