Bonjour,

Essaie comme ceci

Dim J As Integer
Dim Tableau() As String
J = 12
ReDim Tableau(1 To J, 1 To 10)