Comment marche un tableau deux dimentions

Bonjour,

mon problème est dutilisé un tableau à deux dimentions

je cherche à faire des correspondance

mes correspondances : je souhaite verrifier que mes num 1 2 3 ... contenue dan le tableau 1

on bien leur correspondant dans un 3ème tableau 3 donc 1 à comme corespondant 13, 2 à comme corespondant 14

je souhaite verrifier aussi de la même manière le tableau 2 et le tableau 4 (verrif des corespondant)

donc mon code est le suivant le pb est sur le tableau apès il se peut qu'il y est encore des d'autre faute

Private Sub CommandButton4_Click()
Dim corres()() As Integer
plein_vide corres
End Sub

Sub plein_vide(corres()() As Integer)

Dim Lig As Long
Dim liga As Long
Dim i As Integer
Dim k As Integer
Dim ligne As Integer
Dim x As Integer
Dim y As Integer

ligne = 4

For i = 1 To 12
For k = 11 To 13
corres()() = Cells(ligne + i, k + 1)
Next k
Next i

For Lig = 4 To 15
For liga = 24 To 35
For x = 0 To 11
For y = 0 To 11

If Cells(Lig, 3).Value = corres(x, 0).Value And Cells(liga, 3).Value = corres(y, 1).Value Then

MsgBox "Pour l'indice N°" & Cells(Lig, 2) & " l'échange plein vide est bien fait"
Else
MsgBox "Pour l'indice N°" & Cells(Lig, 2) & " l'échange plein vide n'est pas correct"
End If
Next y
Next x
Next liga
Next Lig
End Sub

merci d'avance à ceux qui me réponde