Re : Inserer des lignes et des calculs
Bonjour à tous,
Je modifié ma macro, mais j'ai encore un soucis :
Range("A1").Select
nb = Application.WorksheetFunction.CountA(Range("A1:A" & Range("A65536").End(xlUp).Row))
For i = 1 To nb - 1
Selection.End(xlDown).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Range("A1").Select
Next
ça fonctionne bien, sauf si j'ai plusieurs cellule non vide à la suite dans la colonne "A".
je selectionne la 1er cellule puis la dernière, Mais pas celle du milieu.
Quelqu'un a une idée ?
Merci