Option Explicit
Sub es()
Dim a, b As Variant, c As Boolean, i As Long, j As Long
a = Range("A1:a10").Value
b = Range("b1:b10").Value
c = True
For i = LBound(a, 2) To UBound(b, 2)
For j = LBound(a, 1) To UBound(a, 1)
If Not a(j, i) = b(j, i) Then
c = False: Exit For
End If
Next j
If Not c Then Exit For
Next i
MsgBox "plages idem : " & c
If Application.CountIf([a1:a10], 0) = 10 Then MsgBox "plage que des zeros"
End Sub