bonsoir le forum
je tiens à cous remercier pour l'aide
j'ai trouvé deux parades que je vous souomets
et il y peut-être lieu à l'améliorer
1ère
Dim dt As Date, dtM As Date, dtJ As Date
Dim difY As Integer, difM As Integer, difJ As Integer '
dt = ActiveSheet.Range("AD38").Value
' dt = #1/11/1952#
difY = DateDiff("yyyy", dt, Date)
dtM = DateAdd("yyyy", difY, dt)
difM = DateDiff("m", dtM, Date)
dtJ = DateAdd("m", difM, dtM)
difJ = DateDiff("d", dtJ, Date)
Selection.NumberFormat = "mm/dd/yyyy" 'j'ai inversé l'ordre entre le jour et mois
donc pour par exemple 12/05/1978 j'ai mis 05/12/1978
2ème
=TEXTE(AC7;"jj/mm/aaaa")
j'ai inversé
=TEXTE(AC7;"mm/jj/aaaa")
même si ce n'est folichon
je garderai un peu de cheveux ppour la prochaine fois
en vous remerciant de nouveau