Sub ajouternombre() 
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 I f
Next plagecell
End Sub

Imaginons que vous ayez une liste de nombres et que vous souhaitiez multiplier tous les nombres par un particulier. Pour utiliser ce code : sélectionnez cette plage de cellules et exécutez ce code. Il vous demandera d’abord le nombre avec lequel vous souhaitez multiplier, puis multipliera instantanément tous les nombres avec lui.