Range("A1").Copy 'Copie de la cellule A1
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Collage du presse papier dans la cellule active
Application.CutCopyMode = False '"Vidage" du presse papier