Sub Test_plage_tab()


Dim V2(30) As String
Dim V1(30) As String
Dim b As Integer


TB1 = Range("Plage").Value
TB2 = Range("Plage_comp").Value
b = 0

    For i = LBound(TB1, 1) To UBound(TB1, 1)
        For j = LBound(TB1, 2) To UBound(TB1, 2)
            V1(b) = TB1(i, j)
            MsgBox (V1(b))
            b = b + 1
        Next
    Next

    b = 0

    For k = LBound(TB2, 1) To UBound(TB2, 1)
        For l = LBound(TB2, 2) To UBound(TB2, 2)
            V2(b) = TB2(k, l)
            'MsgBox (V2(b))'
            b = b + 1
        Next
    Next

    'Et après ici je voudrais pouvoir utiliser mon tableau V1 et V2 pour les comparer case par case'

End Sub