Sub Macro1()
NbreLigne = Range("B" & Rows.Count).End(xlUp).Row
For Lig = NbreLigne To 2 Step -1
If Range("B" & Lig) = True Then
Rows(Lig).Delete
End If
Next
End Sub
A+
Maurice
a.achraf
Auteur
Merci à Maurice, qui m'a aidé a avancé après des recherches tout l'après midi