Rechercher dans plusieur feuille une valeur

Bonjour,
J'aimerai rechercher dans plusieurs feuilles une valeur différente de 0 et la mettre en rouge.
En fait tout marche sauf que lorsque je fais une boucle ca marche plus car mes feuille s'appelle "jour1" "jour2" ......

voici mon code :

Sub Renomer()

Dim x As Integer
Dim z As Integer

For x = 1 To 4
Sheets("jour" & x).Select <= l'erreur vien de la... mais comment la regler???
For z = 1 To 60
If Range("C" & z).Value <> 0 Then
Range("C" & z).Interior.ColorIndex = 3
Sheets(x).Name = "erreure" + Str(x)
Else
Range("C" & z).Interior.ColorIndex = xlNone
End If
Next

Next
End Sub

merci d'avance