im LigneRecap As Long
Dim i As Long
Sheets("visuel").Range("A2:AC65000").ClearContents ' effacement des tableau de base au cas ou mais pas utile dans notre cas
LigneRecap = 1
For i = 2 To [a65000].End(xlUp).Row ' ligne sur laquel boucle la recherche
If Cells(i, 1).Interior.ColorIndex = 8 Then ' condition : si une ligne avec la couleurindex interieur 8 alors on copie cette ligne
LigneRecap = LigneRecap + 1
Cells(i, 1).Resize(1, 29).Copy Sheets("visuel").Cells(LigneRecap, 1)
End If
next i