Bonjour!
Private Sub CommandButton1_Click()
If MsgBox("Voulez-vous réellement insérer une ligne ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
With ActiveCell
.EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
.EntireRow.Copy ' Copie la ligne active
With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteFormulas
End With
Application.CutCopyMode = False
End With
End If
End Sub
Le code ci dessus me permet d’insérer une ligne avec recopie de format et formules, ce que je voudrais est que l'insertion ne se fait qu'entre la ligne 9 et 323.
Dans l'attente d'une aide, je vous remercie infiniment.
Cordialement