Sub Macro1()
Dim CEL As Range
Dim PL As Range
Set PL = Application.Intersect(Sheets("Feuil1").UsedRange, Sheets("Feuil1").Columns(13).Cells)
For Each CEL In PL
If UCase(CEL.Value) = "S" Then CEL.Interior.ColorIndex = 3
If UCase(CEL.Value) = "B" Then CEL.Interior.ColorIndex = 4
Next CEL
End Sub
Sub Macro2()
Dim CEL As Range
Dim PL As Range
Set PL = Application.Intersect(Sheets("Feuil1").UsedRange, Sheets("Feuil1").Columns(13).Cells)
For Each CEL In PL
If InStr(1, UCase(CEL.Value), "S", vbTextCompare) <> 0 Then CEL.Interior.ColorIndex = 3
If InStr(1, UCase(CEL.Value), "B", vbTextCompare) <> 0 Then CEL.Interior.ColorIndex = 4
Next CEL
End Sub