Bonjour Natacha je ne suis fort en VBA mais voila une idee j'ai cree 2 boutons
voici le code j'espere que c'est ce que tu veus
Private Sub CommandButton1_Click()
Range("c65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,R[-1]C+1,0)"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Private Sub CommandButton2_Click()
Range("c65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,R[-1]C+1,0)"
End Sub
A++ H@nnoun