Hachurer cellule automatiquement ???

Bonjour,

J'utilise une fonction (qui fonctionne correctement) pour cocher ou décocher une cellule lorsque je double clic dessus :

'Chr$(&HFE) -> case cochée
'Chr$(&HA8) -> case vide
Public Function coche_vide_ligne(ByVal Target As Range, num_cellule As String)
    If Not Intersect(Target, Range(num_cellule)) Is Nothing Then
        If Target.Value = Chr$(&HFE) Then
            Target.Value = Chr$(&HA8)
        Else
            Target.Value = Chr$(&HFE)
        End If
        Target.Offset(-1, 0).Select
    End If
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Call coche_vide_ligne(Target, "B47")
    Call coche_vide_ligne(Target, "C47")
    ' etc...
    Call coche_vide_ligne(Target, "U47")
End Sub

Lorsque la case est cochée, ou décochée, voici ce que je souhaiterais faire automatiquement :

Pour résumer, si la case est cochée, et que la cellule correspondante dans la colonne A n'est ni égale à "-", ni vide, je souhaiterais que la cellule soit hachurée. Si on décoche la case, je voudrais que la cellule ne soit plus hachurée (je ne sais pas si je suis claire, si vous avez des questions n'hésitez pas).

Je ne sais vraiment pas comment faire, pourriez-vous m'aider SVP ?

Merci pour votre aide.

bonjour

as-tu essayé avec une mise en forme conditionnelle ?

(n'est-il pas possible de mettre une coche par formule, sans VBA ? )

joins ton fichier et non une image