Bonjour à tous,
J'ai adapté cette macro trouvé sur internet :
Sub Incrémentation()
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Nombre de lignes à incrémenter", "Test incrémentation", , , , , , 1)
If xCount < 1 Then
MsgBox "La valeur saisie doit être...