Sub CopyPasteSpecial()
 
Dim CelluleDest As Range
Dim PlageSource As Range
 
On Error GoTo Erreur

'Permet de sélectionner une plage avec la souris (Méthode InputBox)
    Set PlageSource = Application.InputBox _
        ("Sélectionnez la ou les cellule(s) à copier !", "Plage source", Type:=8)
 
    Set CelluleDest = Application.InputBox _
        ("Sélectionnez la cellule de destination !", "Cellule destination", Type:=8)
 
If CelluleDest.Count > 1 Then
    MsgBox "Vous ne devez saisir qu'une cellule," _
        + vbCrLf + "de destination !" _
        + vbCrLf + vbCrLf + "La copie va être annulée."
    Exit Sub
End If
 
'On va ouvre la boite de dialogue
'collage spécial pour faire la copie.
PlageSource.Copy
    With CelluleDest
        .Select
        .Application.Dialogs(xlDialogPasteSpecial).Show
     End With
Application.CutCopyMode = False
Exit Sub
 
Erreur:
If Err.Number = 424 Then Exit Sub
End Sub