VBA Copier-coller valeur formule

Bonjour à tous !

J'ai besoin d'aide pour un petit truc : je souhaiterais faire un copier coller sur VBA à l'aide du code ci-dessous. Sauf qu'en cellule C9 j'ai une formule et je voudrais coller le résultat de la formule en C5 de la Feuil2 et non pas la formule elle même !

Si quelqu'un a la solution..

Merci beaucoup

        With Sheets("Feuil2")
        .Unprotect ("mdp")  'enlève la protection de la feuille
        ActiveSheet.Range("C9").Copy Destination:=.Range("C5")
        End With

Bonjour,

Ajouter cette instruction :

With Sheets("Feuil2")
    .Unprotect ("mdp")  'enlève la protection de la feuille
    ActiveSheet.Range("C9").Copy Destination:=.Range("C5"): .Range("C5") = .Range("C5").Value
End With

Bonjour,

Merci pour votre réponse ! Je l'ai un peu modifiée pour que ça fonctionne

J'obtiens :

With Sheets("Feuil2")
    .Unprotect ("mdp")  'enlève la protection de la feuille
    ActiveSheet.Range("C9").Copy Destination:=.Range("C5")
    .Range("C5") = ActiveSheet.Range("C9").Value
End With

Merci pour l'aide

On peut même supprimer la ligne du milieu, ce qui donne :

With Sheets("Feuil2")
    .Unprotect ("mdp")  'enlève la protection de la feuille
    .Range("C5") = ActiveSheet.Range("C9").Value
End With