Bonsoir Antoine, le Forum
Je ne suis pas sûr d'avoir bien interprété ta demande... Pour moi, je comprends que tu souhaites inserrer une ligne en dessous de chaque cellule contenant une valeur dans ta colonne "A"...
Alors si c'est ceci, je propose celà, (attention ce n'est vraiment pas propre du tout, car l'insertion décale la boucle... Il faudrait récupérer d'abord les adresse des lignes, puis faire un insertion, mais je n'ai pas le temps sinon je suis enfermé au bureau tout le wekk end !! lol) :
Sub MaDerniereMacroAvantLeWeekEnd()
Dim Cell As Range
Dim Ligne As Long
With Feuil10
For Each Cell In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
If Cell.Value <> "" Then
Ligne = Cell.Row
Rows(Ligne + 1).Insert
End If
Next Cell
End With
End Sub
Si çà peut déjà dépanner...
Bon Week End
@+Thierry