qqun pr m'aider sur coincé en excel vba simple

[CARO08]

j'ai créé une inputbox qui dde à l'utilisateur de sélectionner des cellules: range (dim plage as range)
Mais je souhaiterais gérer le cas ou l'utilisateur clic sur le bouton annuler (que la macro réafiche la fenêtre par exemple)
voici mon code:

Dim Plage As Range
Set Plage = Application.InputBox('Sélectionnez toutes les données relatives au demandeur !', 'Sélection de cellules', Type:=8)
MsgBox ('Cette plage a été copié : ' & Plage.Address)
Plage.copy
Sheets('ss_entretien').Select
fin = Sheets('ss_entretien').Range('A65535').End(xlUp).Row + 1
Range('A' & fin).Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
Plage.copy
Sheets('neg_ss_entretien2').Select
Range('C2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False

End Sub
Merci beaucoup par avance
caro

 

[Hervé]

Bonjour caro

peut etre en passant par un gestionnaire d'erreur :

Dim Plage As Range
On Error GoTo fin
Set Plage = Application.InputBox('Sélectionnez toutes les données relatives au demandeur !', 'Sélection de cellules', Type:=8)
On Error GoTo 0
MsgBox ('Cette plage a été copié : ' & Plage.Address)
Plage.Copy
Sheets('ss_entretien').Select
fin = Sheets('ss_entretien').Range('A65535').End(xlUp).Row + 1
Range('A' & fin).Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
Plage.Copy
Sheets('neg_ss_entretien2').Select
Range('C2').Select
ActiveSheet.Paste Link:=True
Sheets('cv').Select
Application.CutCopyMode = False
fin:
End Sub

salut