[RÉSOLU] Différencier par une couleur le Oui et le Non

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Indice As Integer, NbColonne As Integer
Dim Tb, TbCoul, X, TbFont, Label As String

  Select Case UCase(Sh.Name)
    Case "TOTO", "TOTO1", "TOTO2", "TOTO3", "TOTO4"
      NbColonne = 4
    Case "TOTO5", "TOTO6"
      NbColonne = 3
  End Select

  If Target.Column = NbColonne + 1 And Target.Row >= 3 And Range("A" & Target.Row) <> "" Then
    Application.EnableEvents = False
    TbFont = Array(5, 3, 5)
    TbCoul = Array(36, 35, 36)
    Tb = Array("", "OUI", "NON")
    Cancel = True
    
    X = UCase(Trim(Target))
    If UBound(Filter(Tb, X, compare:=vbTextCompare)) >= 0 Then
      Indice = Application.Match(X, Tb, 0) Mod (1 + UBound(Tb))
      Label = Tb(Indice)
      With Target
        .Value = Label
        .Interior.ColorIndex = TbCoul(Indice)
        .Font.ColorIndex = TbFont(Indice)
      End With
      With ActiveCell.Offset(0, -NbColonne).Resize(1, NbColonne)
        If Label = "OUI" Then
          .Font.Strikethrough = True
        Else
          .Font.Strikethrough = False
        End If
      End With
    End If
  
    Application.EnableEvents = True
  End If
End Sub