Bon je crois que j'ai trouvé
Code :
Sub Couleur()
Dim i As Integer
For i = 2 To 36
Sheets('Moderato F').Select
If Cells(i, 3) = Sheets('Moderato E').Cells(i, 3) Then
Sheets('Moderato F').Select
Cells(i, 3).Interior.ColorIndex = 3 'colorie A1 en rouge
End If
Sheets('Moderato F').Select
If Cells(i, 3) = Sheets('Moderato S').Cells(i, 3) Then
Sheets('Moderato F').Select
Cells(i, 3).Interior.ColorIndex = 4
End If
Next i
End Sub