Dim CelluleCourante1 As Range
Dim CelluleSuivante1 As Range
Set CelluleCourante1 = Sheets("abc").Range("A2")
Do Until CelluleCourante1.Value = ""
Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
If CelluleCourante1.Value <> CelluleCourante1.Offset(-1, 0) Then CelluleCourante1.EntireRow.Delete
Set CelluleCourante1 = CelluleSuivante1
Loop