Sub SupprimerLigne()
Dim DerLig As Long
' Détermination de la dernière ligne en colonne A
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
' On cherche les lignes que nous souhaitons supprimer et les supprimons
For lignes = DerLig To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & DerLig), Range("A" & lignes)) = 1 And Range("F" & lignes) = 0 Then
Rows(lignes).Delete
End If
Next lignes
End Sub