Comparer le texte de deux cellules dans deux fichiers

Windows("xxx.xls").Activate
cellule1 = Sheets("Feuil1").Range("B10")
Windows("yyyyy.xls").Activate
cellule2 = Sheets("Feuil1").Range("C11")
ThisWorkbook.Activate

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