Sheets('Feuil1').Select
Cells(Cells(65536, 22).End(xlUp).Row, 22).Activate
Do
With ActiveCell
While .Value = .Offset(-1, 0) And .Row <> 2
.Offset(-1, 0).Activate
Selection.EntireRow.Delete
Wend
.Offset(-1, 0).Activate
End With
Loop Until ActiveCell.Row <= 2