Sub Test_plage_tab()


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

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++
        Next
    Next

    MsgBox (V1(b))
    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++
        Next
    Next

End Sub