XL 2010 Ajouter ligne.

Sub Inserer()
Dim r&, x$, n&, i&
r = ActiveCell.Row
If Cells(r, 3).Interior.Color <> RGB(218, 238, 243) Then MsgBox "Sélectionnez une cellule sous FOURNISSEURS...", , "Insérer": Exit Sub
Do
    x = InputBox("Nombre de lignes à insérer :", "Insérer", x)
    If x = "" Then Exit Sub
    n = Int(Val(x))
Loop While n < 1
Application.ScreenUpdating = False
ActiveSheet.Protect Password:=Password, UserInterfaceOnly:=True
Rows(r + 1).Resize(n).Insert
For i = 1 To n
    Rows(r).Copy Rows(r + i) 'pour les formules et les formats (MFC)
Next
If Cells(r, 15).MergeCells Then Range(Cells(r, 15).MergeArea, Cells(r + 1, 15).Resize(n)).Merge 'colonne O
On Error Resume Next 'si aucune SpecialCell
Rows(r + 1).Resize(n, 13).SpecialCells(xlCellTypeConstants) = Empty 'colonnes A à M
End Sub