Copier coller que le faux

Bonjour à vous tous,

Je cherche à copier une plage dynamique dans laquel des formules exsiste. Ces cellules dans lesquel y a une formule du genre =SI(Q9="";"";$D$7)

Mais lorsque je copie la plage, il me copie egalement les cellules avec les vides ("").

Comment faire pour copier que le résultat faux de ma formule

Bonjour,

Utilisez HasFormula pour identifier les cellules qui ont des formules.

Sub test()
    Dim o
    For Each o In Selection
            If Not o.HasFormula Then MsgBox o.Address & " n'a pas de formule."
    Next
End Sub

A+

Merci pour la réponse qui semble avoir été très rapide.

Je joins mon ficher pour que tu m'explique ou est mon erreur en fonction de ta proposition.

la macro se trouve dans le module 1, sub essai()