re, en complément je m'aperçois qu'il continue à faire son cycle sur 24 semaine .
J'ai modifié :
Dim jour_cycle(126) As Variant
et
'capture des 224 jours du cycle
s = 4 'de 4 à 19
j = 1 'de 1 à 7
jourcycle = Array(0, "C", "D", "E", "F", "G", "H", "I")
h = 1
For s = 4 To 21
cdlt
Philmaure