Rebonjour à tous.
Bon, Creepy n'a plus que l'embarras du choix.
Personnellement, je persiste avec la solution de Pascal, parce que l'idée de partir d'en bas est à retenir, elle nous avait déjà sauvés sur un ancien fil où il fallait cette fois supprimer des lignes.
En fait, si tu permets, Pascal, voici une façon de l'écrire sans passer par des sélections de cellules qui, si la macro doit agir sur un très grand nombre de lignes, prennent toujours beaucoup de temps:
Dim Boucle As Long
For Boucle = Range("a1").End(xlDown).Row To 2 Step -1
Rows(Boucle & ":" & Boucle).Insert Shift:=xlDown
Next Boucle
Et en plus, c'est plus court à écrire!
Bonne fin de journée à tous.
Laurent.