Changer la couleur des titres de colonne d’une table

pour x = 1 to TableOccurrence(TABLE_RapportGénéral,toColonne)
   sColonne = TableEnumèreColonne(TABLE_RapportGénéral,x)
   {"TABLE_RapportGénéral."+sColonne,indchamp}..libellé =gStylo(noir)+{"TABLE_RapportGénéral."+sColonne,indChamp}..Libelle
fin