Bonjour,
En pièce jointe ton fichier modifié avec deux options :
• Par formule, j'ai rajouté une colonne (D) (que tu peux éventuellement masquer) avec le jour de la semaine de chaque date (macro à supprimer)
• Par VBA avec le code ci-dessous (Colonne D à effacer) :
Sub Macro2()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim TJ(2 To 7) 'déclare la variable TJ (Tableau des Jours)
Dim I As Byte 'déclare la variable I (Incrément)
Set O = Worksheets("Feuille1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) - 1 'boucles sur toutes les lignes I du tableau des valeurs (sauf la dernière)
TJ(Weekday(TV(I, 1), 1)) = TJ(Weekday(TV(I, 1), 1)) + 1 'incrémente la valeur du tableau TJ en fonction du jour de la semaine
Next I 'prochaine ligne de la boucle
O.Range("G14").Resize(6, 1) = Application.Transpose(TJ) 'renvoie dans H14 redimensionnée le tableau TJ transposé
End Sub