Bonjour à tous
J' utiliser un tableau à 3 dimensions ( lignes,colonnes,feuilles)
dont voici la 1ère partie du code
Sub X
Dim Tableau(1 To 10, 1 To 9, 1 To 12)
Dim y As Integer, x As Integer, z As Integer
For x = 1 To 10
For y = 1 To 9
For z = 1 To 12...