Placez le code ci-dessous dans le module standard

Sub GetRange()

Dim Rng As Range

On Error Resume Next

Set Rng = Application.InputBox(prompt:="Enter range",Type:=8)

If Rng Is Nothing Then

MsgBox "Operation Cancelled"

Else

Rng.Select

End If

End Sub