Bonjour,

Je cherche à faire une boucle qui recherche un mot en particulier dans une certaine colonne.
Une fois ce mot trouvé, la boucle devrait pouvoir copier l'intégralité des colonnes en relation avec ce mot.

Voici ce que j'ai codé:

colonne = 18
critere_de_copie = "POM"
i = 1
Do While (Cells(i, colonne) <> "")
If Cells(i, colonne) = critere_de_copie Then

Worksheets("Argentine FSI").Range("Argentine_FSI").Copy
Workshhets("PIM GLOBAL OPPORTUNITIES (Trade) - Template.xls").Activate
Sheets("DataGPMS").Select
Sheets("DataGPMS").Range("A7").Select
ActiveSheet.Paste


Mon problème se situe à la ligne vide. Je ne sais pas comment sélectionner le contenu des colonnes qui précèdent la 18 et où apparait le mot POM


Merci par avance!

Configuration: Windows 2003 Internet Explorer 7.0