Bonjour
Le bug de la macro vient du fait que l’annulation renvoi un object vide.
Il faut donc utiliser un gestionnaire d’erreur
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage1 As Object, plage2 As Object
‘Si une erreur se produit se rendre à la balise gestionderreur
On Error GoTo gestionderreur
Set plage1 = Application.InputBox("Sélectionnez la plage à copier : ", Type:=8)
Set plage2 = Application.InputBox("Sélectionnez la plage de destination : ", Type:=8)
plage1.Copy Destination:=plage2
Exit Sub
gestionderreur:
End Sub
Salut
Hervé