Redimensionnement de tableau - VBA

Bonjour à tous, URGENT!

Je souhaite redimensionner un tableau dynamique existant, et fixé à 30 lignes dans la feuille "Modèle" : c'est une feuille modèle générée automatiquement à partir de la feuille office en cliquant sur le bouton "Création onglets", à partir de deux variables X et Y, qui définissent le nombre de lignes et colonnes:

1. les nombres de lignes sont variables

2. les nombres de colonnes sont fixées :

a. de B13 à AN13, soit 39 colonnes, si le mois en cours est de 31 jours,

b. de B13 à AN12, soit 38 colonnes, si le mois en cours est de 30 jours,

c. de B13 à AN11, soit 37 colonnes, si le mois en cours est de 29 jours,

d. de B13 à AN10, soit 36 colonnes, si le mois en cours est de 28 jours,

3. La formule existante dans ce tableau =IFERROR(INDEX(Tabel1[Equipment];SMALL(IF(Tabel1[Lines]=$D$8;ROW(Tabel1[Equipment])-7);ROWS($1:1));1);"") elle répète les valeurs demandées.

(Image2)

Normalement le tableau doit :

- Le mois encours commence du 15eme du mois au 14eme jour du mois suivant: ex, du 15 Août au 14 Septembre 2024; 15 Février au 14 Mars 2025.

- Chaque Equipment doit apparaitre une seule fois durant tous le mois si a le même numéro de WO NO, par contre si l'Equipment change son numéro WO NO doit avoir une nouvelle ligne séparée.

- Les Equipment apparaitront dans le tableau selon les dates de travail de Haut vers le bas comme exemple dans le tableau ci-dessous (Image1)


Cordialement
El Hacen