Re,
Ma pneu de vélo est à plat est ma pompe à vélo est HS, en plus il fait froid ![:ice_cube: :ice_cube:](https://forum.formuleexcel.com/images/emoji/apple/ice_cube.png?v=12)
Alors, déjà les deux moules de ton fichier ne sert à rien car c’est des macros qui ne se lance que depuis la feuille active
sur la feuille active (c’est la même macro)
voici juste son début de code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dates As Range, ville As Range, r As Range, lettre$, i%, deb As Variant, fin As Variant
Set dates = Range(Rows(4).Find("*", , xlValues), Cells(4, Columns.Count)) 'dates en ligne 4
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènement
For Each ville In Rows(1).SpecialCells(xlCellTypeConstants, 2)
If ville <> "" And ville.Column > 1 And ville.MergeCells Then
Set r = Intersect(Target.EntireRow, ville.MergeArea.EntireColumn, UsedRange)
For Each ville In Rows(1).SpecialCells(xlCellTypeConstants, 2)
If ville <> « » And ville.Column > 1 And ville.MergeCells Then
ville est une zone de texte du gestionnaire de noms qui n’est pas déclaré est n’a rien à voir avec ta demande
ensuite suivant la formule que tu demandes en premier post
=IF(AZ:AZ=« APPARTCITY »;CD:CD=« L »;COUNT(CD8:CD653))
la colonne AZ correspond à « LAST NIGHT » → n’a rien à voir avec « Appartcity »
et la colonne CD est complétement en NOIR
Alors à la vue simplement de cette colonne par rapport à la formule
Mon regretté Johnny dirait
Noir c’est Noir, il n’y a plus d’espoir
Désolé, j’en ferai pas plus avec ce genre de demande et de fichier (Il faut progressé un peu plus)