Comparer cellule excel av tableau à 2 dimen

Bonjour,

je n'arrive pas à comprendre pourquoi mon code ne marche pas

je pense que mon tableau est mal définit mais je ne comprend pas pourquoi

voila mon code :

Private Sub CommandButton4_Click()
Dim corres(1 To 2, 1 To 12) As Integer
plein_vide corres()
End Sub


Option Explicit

Sub plein_vide(corres() As Integer)

Dim Lig As Long
Dim liga As Long
'Dim corres() As Integer
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(i, k) = 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 a ce qui réponde