Problème de tableau à 2 dimention

Bonjour,
j'ai testé un code je ne sais pas pourquoi il ne marche pas

je ne suis pas sur de bien maitriser les tableau à 2 dimention

merci d'avance à ceux qui réponde

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

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) = 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