Encore les doublons

[Temjeh]

Bonsoir le forum

J'ai ce macro:

Range("G1").Select
Do While Not IsEmpty(ActiveCell) = True
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Selection.EntireRow.Delete
Else: ActiveCell.Offset(1, 0).Select
End If
Loop

Que faire pour qu'il ne s'arrête pas si il y a des cells vide dans "G" car il supprime la ligne mais si une cell est vide il arrête

Merci beaucoup

Temjeh