Sub Ajout_ligne()
[COLOR="red"]On Error Resume Next 'au cas où il n'y a pas de constantes[/COLOR]
With Range("totaux" & ActiveSheet.Name)
.Insert Shift:=xlDown
.Offset(-2).Copy .Offset(-1)
[COLOR="red"].Offset(-1).SpecialCells(xlCellTypeConstants).ClearContents 'efface les constantes[/COLOR]
.Cells(1, 3).Select 'si l'on y tient absolument...
End With
End Sub