Sub compare2f()
Dim wbk1 As Workbook: Set wbk1 = Workbooks("fichierA.xls")
Dim wbk2 As Workbook: Set wbk2 = Workbooks("fichierB.xls")
Dim f1 As Range: Set f1 = wbk1.Sheets(1).[B10]
Dim f2 As Range: Set f2 = wbk2.Sheets(1).[C11]
MsgBox "Les cellules " & ((IIf(f1 = f2, "sont ", "ne sont pas "))) & "équivalentes.", vbInformation, "RESULTAT DE LA COMPARAISON"
End Sub