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.