Sub Copie()
Dim Source As Range, vDestination As Range
Set Source = Application.InputBox("Sélection cellules à copier", "Test", , , , , , 8)
Set vDestination = Application.InputBox("Sélection de la cellue où coller", "Test", , , , , , 8)
Source.Copy vDestination.Item(1)
End Sub