Sub supprime()
' Macro by Camarchepas
Dim Tourne As Long, Cible As Long
'Dim Nom As String
Tourne = 2
Cible = 2
With ActiveSheet
Do
'Ne copie pas les lignes dont la valeur de la colonne B est inférieur à 1 seconde
'Ne copie pas les lignes dont la valeur de la colonne C est supérieur à 200
'Ne copie pas les lignes dont la valeur de la colonne F est inférieur à 100
If .Range("B" & Tourne) >= 1 And .Range("C" & Tourne) <= 200 And .Range("F" & Tourne) >= 100 Then
Cible = Cible + 1
.Rows(Tourne).Copy Destination:=ThisWorkbook.Worksheets("Temporaire").Rows(Cible)
End If
Tourne = Tourne + 1
Loop Until .Range("A" & Tourne) = ""
End With
End Sub