Sub test() Dim Sequence As Range
On Error Resume Next
Set Sequence = Application.InputBox(prompt:="Selectionnez la séquence à intégrer dans le plan :", Title:="Envoyer la séquence vers le plan", Type:=8)
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0
Sequence.Select
End Sub