With Range("t_BDD_2022").ListObject
.ListRows(Lgn).Range(3).Value = StrText ‘Ici je modifie la cellule 3 de la ligne (Lgn) du Tableau Structuré
.ListRows(Lgn).Range(3).Font.Color = IIf(StrText = "REM", vbRed, vbBlack) ‘je modifie la couleur du Texte
End With