Bonsoir Jack, bonsoir PierreJean, bonsoir my name's Pass... Pass cal :woohoo:
Pierre, tu peux commencer depuis n'importe quelle feuille à condition de modifier la ligne suivante dans ta macro
test
Call cherche(Cells(4, n - 1).Value, .Sheets(m).Name,
CDate(Cells(cel.Row, n - 1).Value
), (cel.Column + 1)
Mod 2, cel.Interior.ColorIndex)
qui devient
Call cherche(
.Sheets(m).Cells(4, n - 1).Value, .Sheets(m).Name,
CDate(.Sheets(m).Cells(cel.Row, n - 1).Value
), (cel.Column + 1)
Mod 2, cel.Interior.ColorIndex)
Bonne soirée