Public Sub brigitte()
Dim nbligne As Long
Dim t As String
Dim derligne As Integer
ActiveSheet.Unprotect
Application.ScreenUpdating = False
nbligne = Application.InputBox("Nombre de lignes à insérer (maximum 10)", "Insertion ligne", 10, , , , , 1)
Select Case nbligne
Case Is > 10: t = "Maximum 10, SVP"
Case 0: Exit Sub
Case Is < 1: t = "Supérieur à 0, SVP"
End Select
If t <> "" Then
t = t & vbNewLine & vbNewLine & "Procédure arrêtée."
MsgBox t, , "Attention..."
Exit Sub
End If
derligne = Range("f1").End(xlDown).Row + 1
Rows(derligne & ":" & derligne + nbligne - 1).Insert
Range("modele").Copy Destination:=Range("a" & derligne & ":a" & derligne + nbligne - 1)
Range("g" & derligne & ":g" & derligne + nbligne - 1).ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows _
:=True
Application.ScreenUpdating = True
End Sub