Microsoft 365 Masquer case option si non cochée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Matrice en police Webdings, point = caractère "n"
' Attention à l'offset entre No de ligne et première ligne de la matrice.
' Savoir faire
If Not Application.Intersect(Target, [D14:G43]) Is Nothing Then
    Ligne = Target.Row                                                      ' On récupère le No de ligne
    [SavoirFaire].Range(Cells(Ligne - 13, 1), Cells(Ligne - 13, 4)) = ""    ' On efface la ligne
    Target.Value = "n"                                                      ' On met un point sur la bonne colonne
End If
' Savoir être
If Not Application.Intersect(Target, [D47:G70]) Is Nothing Then
    Ligne = Target.Row
    [SavoirEtre].Range(Cells(Ligne - 46, 1), Cells(Ligne - 46, 4)) = ""
    Target.Value = "n"
End If
End Sub