Private Sub FiltreEtColle_Click()
Dim ligne As Integer, dernval As Integer, lignecollage As Integer, x As Integer, i As Integer
For i = 1 To 30000 Step 1
ligne = i - 2
dernval = 9
lignecollage = i
If (Cells(i, 4).Value = "differ") Then
With Sheets("log")
Range(.Cells(ligne, 1), .Cells(i, dernval)).Copy _
Sheets("filtration").Range("A1")
End With
End If
Next i
Feuil2.Activate
End Sub