Comparer une cellule face à une plage de données

[Helper]

Bonjour aux Forumistes !


Une question super facile pour vous les pros d’Excel ;-)
J’ai trouvé chez Disciplus le code pour comparer 2 plage de données.
Or je voudrais comparer seulement une cellule face à une plage de données.
J’ai essayé d’adapter le code, mais je n’ai point réussi.

Le voici :

Sub ComparePlages()
Dim Arr1, Arr2, Flag
Arr1 = Range("A1500").Value
Arr2 = Range("F1:I500").Value
Flag = True
For i = LBound(Arr1, 2) To UBound(Arr1, 2)
For j = LBound(Arr1, 1) To UBound(Arr1, 1)
If Not Arr1(j, i) = Arr2(j, i) Then Flag = False:
Exit For
End If
Next j
If Not Flag Then Exit For
Next i
MsgBox "Plages identiques : " & Flag
End Sub

J’ai mis Arr2 = ( "B2").Value , mais bien sûr ça plante…
J’ai testé aussi avec une TextBox : Arr2 = Textbox.Value sans plus de résultat… re :-(

Pouvez vous me tuyauter ? Merci !!!