Merci Cathy
Super formule !!! et en plus çà marche.
Le problème est qu'il faut que je l'introduise dans une macro et là çà ne fonctionne pas car elle se traduit en automatique par :
ActiveCell.FormulaR1C1 = _
"=DAY(R[-2]C)<25 IF(OR(WEEKDAY(FIN.MOIS(R[-2]C,0))=7,WEEKDAY(FIN.MOIS(R[-2]C,0))=1),FIN.MOIS(R[-2]C,0)-WEEKDAY(FIN.MOIS(R[-2]C,0)-6),FIN.MOIS(R[-2]C,0))"
Peut être faudrait-il utiliser select case mais je n'ai jamais compris comment on s'en sert !!
Merci
Philippe