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
[COLOR=red]derligne = Range("a2").End(xlDown).Row + 1
If derligne = 3 Then derligne = 4
Rows(derligne & ":" & derligne + nbligne - 1).Insert[/COLOR]
[COLOR=red]Range("modele").Copy Destination:=Range("a" & derligne & ":a" & derligne + nbligne - 1)
Range("d" & derligne & ":d" & derligne + nbligne - 1).ClearContents[/COLOR]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows _
:=True
Application.ScreenUpdating = True
End Sub