Sub ajouternumero() Dim plagecell As Range Dim i As Integer i = InputBox("Entrer les nombre à multiple", "Entrée necessaire") For Each plagecell In Selection If WorksheetFunction.IsNumber(plagecell) Then plagecell.Value = plagecell + i Else End If Next plagecell End Sub
Tout comme la multiplication, vous pouvez également ajouter un nombre dans un ensemble de nombres.