[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]