Bonjour,
Tu peux par exemple utiliser le format personnalisé ;;; trois points-virgules qui va masquer les valeurs des cellules dans la feuille mais visible en sélection dans la barre de formule ou utiliser un code sur procédure événementielle en mémorisant les formules et en les rétablissant ensuite, c'est le rétablissement des formules qui est plus compliqué car il n'existe pas de procédure Workbook_AfterPrint() donc ici j'ai utilisé "SheetActivate()" pour remettre en place les formules mais ça demande de changer de feuille et de revenir dessus. Un autre intervenant aura probablement une meilleure idée que moi :
Dim FormuleD4 As String
Dim FormuleD5 As String
Private Sub Workbook_BeforePrint(Cancel As Boolean)
FormuleD4 = Range("D4").Formula
FormuleD5 = Range("D5").Formula
Range("D4:D5").Value = ""
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("D4").Formula = FormuleD4
Range("D5").Formula = FormuleD5
End Sub