Re,
Consulter l'aide préalablement (lien).
Un minimum syndical !
Sub Informations_1()
Dim rr As Range
Worksheets("Sheet1").Activate
Set rr = Application.InputBox( _
prompt:="Select a range on this worksheet", Type:=8)
If rr.SavedAsArray = True Then
'MsgBox "Every cell in the selection is part of a spilled range."
MsgBox "Chaque cellule de la sélection fait partie d’une plage renversée."
End If
End Sub