Option Explicit
Sub test()
Dim mycells1, mycells2 As Range
Dim cells As Range
Dim i, cellules, cell(100)
Set mycells1 = Application.InputBox(prompt:='Sélectionnez la plage de cellules à copier.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
i = 1
For Each cellules In mycells1
cell(i) = cellules.Value
i = i + 1
Next
i = 1
Set mycells2 = Application.InputBox(prompt:='Sélectionnez la plage de cellules de destination.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
For Each cellules In mycells2
cellules.Value = cell(i)
i = i + 1
Next
End Sub