couleur onglets

Bonjour
J'utilise le code suivant pour changer la couleur d'un onglet
activeworkbook.sheets("FOS1").tab.colorindex = 3
je voudrai faire la même chose avec les 20 onglets de FOS1 à FOS20
Merci

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/10/2011 par jean-paul
'

'
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Classeur1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Sheets("FOS").Visible = True
Sheets("FOS").Select
Sheets("FOS").Copy Before:=Sheets(1)
ActiveSheet.Name = "FOS1"
Sheets("FOS").Copy Before:=Sheets(2)
ActiveSheet.Name = "FOS2"
Sheets("FOS").Copy Before:=Sheets(3)
ActiveSheet.Name = "FOS3"
ActiveWorkbook.Sheets("FOS1").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("FOS2").Tab.ColorIndex = 3
ActiveWorkbook.Sheets("FOS3").Tab.ColorIndex = 3
Sheets("FOS").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub