Sub MAGICPASTE()
'on verifie l'état du mode copié/collé d'excel
Select Case Application.CutCopyMode
'si une plage a été copiée (ctrl+c) alors
Case Is = xlCopy
'on colle la selection dans la cellule active en valeur et en ométant les vides
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
'on remplace les valeurs précédemment collées 0 par du vide
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
'on remplace les valeurs 60 précédemment collées par du vide
Selection.Replace What:="60", Replacement:="61", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
'sinon, si aucune plage n'a été copiée
Case Else
'on le fait remarquer!
MsgBox "Il n'y a rien à copier !", vbOKOnly + vbCritical
End Select
End Sub