Microsoft 365 vba mettre en couleur + gras

BOnjour,

Voici mon code, mon problème est que je n'arrive pas a mettre en gras et en rouge un texte .. je ss amateur en la matière, je ne veux pas passer par la MFC. Uniquement en VBA.

Merci d'avance pour votre aide.


=>
"For Each cel In Base.Range("DIVERS1").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Font.Bold = True And targ.Font.Color = vbRed
Next
Next"


dans ce code ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)


Set Base = Worksheets("Base de données")

ZGRIS = RGB(130, 130, 138)

' If Target.Column = 1 And Target.Count = 1 Then POUR LES COLONNES
If (Target.Row = 14 Or Target.Row = 20) Then 'And Target.Count = 1 Then 'POUR LES LIGNES

Target.Interior.Color = xlNone
Target.Font.Bold = False


For Each cel In Base.Range("DIVERS").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Interior.Color = ZGRIS
Next
Next

For Each cel In Base.Range("DIVERS1").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Font.Bold = True And targ.Font.Color = vbRed
Next
Next


End If
End Sub


Merci 🙂