re,
une autre possibilité si la sélection doit comporter une seule plage de cellule,
Sub Selection2()
Dim rng As Range
On Error Resume Next
deb:
Set rng = Application.InputBox(Prompt:="S.V.P. Sélectionner les cellules." & Chr(10) & _
"Vous devez sélectionner une cellule, ou une seule plage de cellules contigues.", Title:="Sélection", Type:=8)
If Err.Number <> 0 Then Err.Clear: GoTo deb
If UBound(Split(rng.Address, ",")) > 0 Then GoTo deb
MsgBox "Vous avez sélectionner les cellules " & rng.Address
End Sub