Sub Ligne_insérer()
Dim INSERER As Range '
Dim PlageFormules As Range
Sheets("Devis").Unprotect 'protection retirer
Set DerLi = Range("INSERER")
DerLi.Insert Shift:=xlDown
Set PlageFormules = Range(DerLi.Cells(DerLi.Cells.Count).Offset(-2, -1), DerLi.Cells(DerLi.Cells.Count).Offset(-2, 0))
PlageFormules.AutoFill Destination:=PlageFormules.Resize(2, 2), Type:=xlFillDefault
Sheets("Devis").Protect 'protection appliquer
End Sub