Sub Incréments()
'ValDepart = CDec(Application.InputBox("Donnez la valeur de départ"))
'ValFin = CDec(Application.InputBox("Donnez la valeur de Fin"))
ValDepart = WorksheetFunction.Min(Range("G:G"))
ValFin = WorksheetFunction.Max(Range("G:G"))
Pas = CDec(Application.InputBox("Donnez l'intervalle"))
For i = 1 To ((ValFin - ValDepart) / Pas) + 1
Range("A" & i) = ValDepart + (i - 1) * Pas
Next i
End Sub