Maintenant ça  marche bien pour les 2 premieres feuilles mais apres ça marche plus?!Il met un message d'erreur:
"la methode select de la classe range a echoué"
 
 
voila le code que j'ai testé:
 
Sub Comparaison1()
Dim Cellule1 As Range
Dim f1 As Worksheet
Dim f2 As Worksheet
Const WK1 = "cas1.xls"
Const WK2 = "cas2.xls"
For Each f1 In Workbooks(WK1).Sheets
   MsgBox "Traitement " & f1.Parent.Name & "!" & f1.Name
    On Error Resume Next 'Au cas ou feuille inexitante dans classeur2
    Set f2 = Nothing
    Set f2 = Workbooks(WK2).Sheets(f1.Name)
    On Error GoTo 0
    If f2 Is Nothing Then
      MsgBox "Erreur feuille " & f1.Name & " Inacessible dans " & WK2
    Else
        For Each Cellule1 In f1.Range("a1:h13" )
          If Cellule1 <> f2.Range(Cellule1.Address).Value Then
            Cellule1.Select
                With Selection.Interior
                    .ColorIndex = 3
                    .Pattern = xlSolid
                End With
                 
          Else
             Cellule1.Font.Color = vbBlack
             Cellule1.Font.FontStyle = "normal"
          End If
        Next
   End If
 Next
End Sub

bonjour,
Bah, j'ai pas fouillé plus que ça mais...
 
If Cellule1 <> f2.Range(Cellule1.Address).Value Then  
f1.Cellule1.Interior .ColorIndex = 3  
 
ça devrait suffire. non ? Pas sur...
A+