Sub MasquerChiffres()
Dim tablo As Object, c As Range, i%
For Each tablo In ActiveSheet.ListObjects
For Each c In tablo.Range.Rows(1).Cells
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then c.Characters(i, 1).Font.Color = c.DisplayFormat.Interior.Color
Next i, c, tablo
End Sub
Sub AfficherChiffres()
Dim tablo As Object, c As Range
For Each tablo In ActiveSheet.ListObjects
For Each c In tablo.Range.Rows(1).Cells
c.Font.Color = xlAutomatic
Next c, tablo
End Sub