Bonjour à tous,
Aujourd'hui j'utilise une instruction me permettant de faire une boucle dans un tableau et me copier coller vers une autre sheet quand un mot bien spécifique est retrouvé.
J'aimerais pouvoir faire une boucle sur une liste de mot - Que je placerais dans un autre onglet
Ex:
023A
023B
023C
etc...
Pourriez vous m'aider?
DernLigne = Range("A" & Rows.count).End(xlUp).Row
For i = 6 To DernLigne
Worksheets("Data").Select
If Range("A" & i) = "023A" Then
ActiveSheet.Rows(i).Select
Selection.Copy
Worksheets("Résultat").Select
ActiveSheet.Cells(Rows.count, "A").End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues
i = i + 1
Else
End If
Next
D'avance un grand merci,