Sub Couleur_bis()
Dim maChaine As Variant
Range('B1').Select
For i = 1 To Range('B65536').End(xlUp).Row
If ActiveCell.Value = '' Then
Selection.Offset(1, 0).Select
Else
maChaine = ActiveCell.Value
If (InStr(1, maChaine, 'table', vbTextCompare)) <> 0 Then
ActiveCell.Font.ColorIndex = 4
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
End If
Next i
End Sub