bonjour Eriiic, Joannn1,
on a un "inputbox" pour cela et avec type=8, on n'a qu'à sélectionner sa plage avec le souris.
Sub Joannn1()
Dim MaSelection As Range
Set MaSelection = Application.InputBox("Sélectionnez votre plage", "Plage de la macro", Type:=8)
MsgBox MaSelection.Address
End Sub