Sub boite0()
Dim R As Range
On Error Resume Next
Set R = Application.InputBox(Prompt:="Sélectionner une plage de cellules", _
Title:="Calcul d'un montant entre deux dates", Type:=8)
If Err <> 0 Then Exit Sub
Range("G20") = "=sum(" & R.Address & ")"
MsgBox Application.WorksheetFunction.Sum(R)
End Sub