Sub test2()
Dim Source As Range, Dest As Range
On Error Resume Next
Set Source = Application.InputBox(Prompt:="Sélection de la plage de la plage source.", Type:=8)
If Err = 0 Then
Set Dest = Application.InputBox(Prompt:="Sélection de la cellule de destination.", Type:=8)
If Not Dest Is Nothing Then
Dest(1, 1).Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value
Else
Err = 0
End If
Else
Err = 0
End If
End Sub