Bonjour vgendron
Merci pour ta formule simplifiée. Ma formule VBA se trouve bien dans mon fichier Excel. je te joins une capture d'écran.
Sinon, la voici :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DtMod, TDatM(), C&, M&, TMois(1 To 1, 1 To 12)
If Intersect([D:BM], Target) Is...