Il n'y a qu'une image en pièce jointe...
Voici un code la plage est à modifiée au besoin.
Attention ce code supprime toute la ligne, il faut être sûr qu'il n'y a pas de données à coté
Sub UnesurDeux()
Dim cel As Range
For Each cel In Range("A2:A30")
cel.Offset(1, 0).EntireRow.Delete
Next
End Sub