Sub Macro1()
Sheets("Importation").Select
LigAcopier = 2
For Lig = 1 To 700
Flag = 0
For Col = 1 To 9
If Cells(Lig, Col).Interior.ColorIndex = 6 Then
Flag = 1: Exit For
End If
Next Col
If Flag = 1 Then
Rows(Lig & ":" & Lig).Copy
Sheets("Récap des modifs").Cells(LigAcopier, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
LigAcopier = LigAcopier + 1
End If
Next Lig
Sheets("Récap des modifs").Select
Beep
End Sub