Surligner la ligne active en MFC, sans la colonne

Bonjour,

Grâce à ce forum, J'utilise un code VBA pour surligner la ligne de la cellule sélectionner sans supprimer la mise en forme de base. Cependant, le surlignement affecte aussi la colonne. Je n'arrive pas à le changer sans tout faire planter. C'est un MFC en VBA.

Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A3:BM95")
  If Me.CheckBox1 Then
    If Not Intersect(champ, Target) Is Nothing Then
      champ.FormatConditions.Delete
      If Target.Count = 1 Then
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions(1).Interior.ColorIndex = 36
        'Target.FormatConditions(1).Font.Bold = True
      End If
    End If
  Else
    champ.FormatConditions.Delete
  End If
End Sub

Autre question : Est-ce que c'est normal que je ne puisse plus utiliser la mise en forme conditionnelle pour autre chose dans la même feuille?

Merci,

bonjour

une proposition

cordialement

Bonjour,

Merci pour le fichier, cependant, j'utilise le surlignage présenté spécifiquement parce que la méthode que vous m'avez envoyé est trop lente avec mon fichier. Mon fichier est plutôt lourd.

Merci