Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub essai() Range("A65000").End(xlUp).Select For i = 1 To Selection.currentregion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next End sub
Sub essai()
Range("A65000").End(xlUp).Select
For i = 1 To Selection.currentregion.Rows.Count - 1
ActiveCell.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Next
End sub
Sub essai() Range("A65000").End(xlUp).Select For i = 1 To Selection.currentregion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next End sub