Bonsoir Paf
[pompareo- allo la terre?]
Tu n'as pas supprimé la pièce jointe du message#3 (rappel 1)
[pompareo- allo la terre?]
Chez moi, je ne suis guère avancé non plus car ce classeur utilise un ocx que je n'ai pas réinstallé depuis que je suis passé sous W10.
Mais je ne peux au moins dire qu'il serait plus prudent de déclarer en Long ce qui doit l'être, non ?
Dim D As Worksheet 'déclare la variable D (onglet Data)
Dim DC As Date 'déclare la variable DC (Date Cherchée)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Integer 'déclare la variable NL (Nombre de Lignes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim T As Boolean 'déclare la variable T (Trouvé)
Dim DT As Date 'déclare la variable DT (Date trouvée)
Dim LI As Integer 'déclare la variable LI (Ligne)
Suggestion
Peut-être que le recours à de nombreux noms ralentit le classeur ?
Date =DECALER(Data!$A$3;;;NBVAL(Data!$A:$A)-2)
Début ='Stat à la demande'!$D$5
Evenements =DECALER(Data!$F$3;;;NBVAL(Date))
Férié =Param!$H$2:$H$15
Fin ='Stat à la demande'!$M$5
Fonctions =DECALER(Data!$E$3;;;NBVAL(Date))
Heures =DECALER(Data!$C$3;;;NBVAL(Date))
ID =DECALER(Data!$B$3;;;NBVAL(Date))
Lien_Fonct =Param!$P$2:$Q$19
List_Evenement =DECALER(Param!$B$2;;;NBVAL(Param!$B:$B)-1)
List_Fonction =DECALER(Param!$A$2;;;NBVAL(Param!$A:$A)-1)
List_Personne =DECALER(Param!$D$2;;;NBVAL(Param!$D:$D)-1)
mois_toupie =Param!$J$2:$K$13
N°_année =Param!$M$2:$N$18
table =Piquet!$C$13:$N$30
Tableau_Fonct =Param!$D$2:$E$19