Dim TabIni(10)
TabIni(1) = "AS": TabIni(2)="CC" : TabIni(3)="XX" ' Etc ...
For I = 1 To 10
Sheets("PLANNING").Copy After:=Sheets("PLANNING")
With Range("C5:W39")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1[COLOR=blue][COLOR=black]:=[/COLOR]"=""" & TabIni(I) & """"[/COLOR]
.FormatConditions(1).Font.ColorIndex = 3
End With
Next I