erreur

[COLOR="DarkSlateGray"]Sub AffecterValeursTableau(DerniereLigneTableau)
    Dim CompteurLignes As Byte
    Dim CompteurColonnes As Byte
    [COLOR="Red"]ReDim Montableau(1 To DerniereLigneTableau, 1 To 6)[/COLOR]
    For CompteurLignes = 1 To DerniereLigneTableau
        For CompteurColonnes = 1 To 6
        Montableau(CompteurLignes, CompteurColonnes) = Cells(CompteurLignes + 3, CompteurColonnes)
        MsgBox "cellule" & Montableau(CompteurLignes, CompteurColonnes), vbOKOnly
        Next CompteurColonnes
    Next CompteurLignes
End Sub[/COLOR]