Copier coller une partie de texte en valeur

Bonjour,

La macro qui permet de copier coller en valeur est facilement trouvable sur le net:

Sub CollerValeur()

Selection.PasteSpecial Paste:=xlPasteValues

End Sub

Je l'ai associé à CTRL+V

Néanmoins, quand je copie colle une partie de texte sélectionner dans la barre de formule, elle bug:

La méthode PasteSpecial de la classe Range à échoué.

Quelqu'un a t'il une solution ?

Cordialement

Bonjour,

une proposition

Sub CollerValeur()
    On Error GoTo fin
    Selection.PasteSpecial Paste:=xlPasteValues
    Exit Sub
fin:
    ActiveSheet.Paste
End Sub

Excellent ! Merci beaucoup !