la seule façon d'incrementer +1 est de creer une procedure comme
suis :Sub incremente()
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
End Sub
' en fait tu copie la cellule A1 et tu transpose uniquement la valeur en A2
ensuite tu peut masqué la cellule A2
A+ JM