bonjour,
je voudrais insérer une ligne vide automatiquement entre 2 lignes contenant des données(colonne A) et ceci dans toute la feuille sans en rajouter une avant ou après une vide.
J'ai deja un debut !!!
Sub Macro1()
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Merci
je voudrais insérer une ligne vide automatiquement entre 2 lignes contenant des données(colonne A) et ceci dans toute la feuille sans en rajouter une avant ou après une vide.
J'ai deja un debut !!!
Sub Macro1()
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Merci