Boucle avec vlookup en VBA

[intirafael]

Bonjour,

J’ai une série de noms dans un classeur, dans un deuxième classeur j’ai des nombres qui correspondent aux noms du premier classeur y pour chaque nom ; une feuille lui correspond dans un troisième classeur.

Est-il possible de faire une boucle utilisant vlookup et qu’il fasse automatiquement le procès pour pas avoir a mettre a chaque fois une ligne de commande pour un nom ?

Sub COLOR()
'
'

'Inti

Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
        "Inti"
Range("F2").Copy
 
Windows("ejemplo1.xlsx").Activate
Sheets("Inti").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues

'Raymi

Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
        "Raymi"
Range("F2").Copy
Windows("ejemplo1.xlsx").Activate
Sheets("Raymi").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues

'Magu

Windows("ejemplo.xlsx").Activate
Sheets("INDEX").Activate
ActiveSheet.Range("$A$4:$K$2725").AutoFilter Field:=1, Criteria1:= _
        "Magu"
Range("F2").Copy
Windows("ejemplo1.xlsx").Activate
Sheets("Magu").Activate
Cells(Range("B65536").End(xlUp).Row + 1, 3).PasteSpecial Paste:=xlPasteValues

End Sub