Bonjour
Code Module
Sub AjouterLigne()
' Touche de raccourci du clavier: Ctrl+x
ActiveSheet.Unprotect
Range("F2").End(xlDown).Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlDown
Range("B6").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowInsertingRows:=True
End Sub
Cordialement