Collez le code suivant ci-dessous le texte "Sous Deletethree":
«variables Dim.
Y = 1
I = 1
Réglez xRng = Sélection
«Boucle pour chaque ligne de la sélection
Pour Xcounter = 1 Pour xRng.Rows.CountSi Y = 3 Ensuite,
'... Supprimer une ligne entière de cellules.
xRng.Cells (I) .EntireRow.Delete
Y = 1
«Sinon ...
Autre
«... Je incrémenter par un pour faire défiler gamme.
I = i + 1
Y = Y + 1
End If
Suivant Xcounter