Sheets("Sheet1").Activate
For i = 2 To Range("A6553").End(xlUp).Row
If Cells(i, 9) = "truc" Then ' Ici tu mets ta condition
Range(Cells(i, 1), Cells(i, 8)).Copy
derligne = Sheets(2).Range("A65535").End(xlUp).Row + 1
Sheets(2).Activate
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next i