Sub test()
Dim p As Range, c As Range
On Error Resume Next
Set p = Application.InputBox("Sélectionnez une plage à additionner !", , , , , , , 8)
Set c = Application.InputBox("Sélectionnez une cellule pour afficher le résultat !", , , , , , , 8)
On Error GoTo 0
If Not p Is Nothing And Not c Is Nothing Then c.Value = WorksheetFunction.Sum(p)
End Sub