'code de saisie de la page 1
Dim Montableau(1 To 53, 1 To 12)
With Sheets("base")
num = .Range("A65000").End(xlUp).Row + 1
Montableau(num, 1) = "Jour"
Montableau(num, 2) = "Semaine"
Montableau(num, 3) = "EQ"
Montableau(num, 4) = "Code"
Montableau(num, 5) = ""
Montableau(num, 6) = "EXTRUDEUSE"
Montableau(num, 7) = ""
Montableau(num, 8) = "Cible"
Montableau(num, 9) = "Tolérance"
Montableau(num, 10) = "Valeur"
Montableau(num, 11) = "Actions correctives"
Montableau(num, 12) = "Valeur après réglage"
'code de saisie de la page 1 - 1e ligne'
num = num + 1
Montableau(num, 1) = ComboBox1.Value
Montableau(num, 2) = ComboBox2.Value
...
...