Bonjour Steve,
Voici une macro qui n'est pas de moi qui pourrait te rendre service :
Function SemISO(dat As Date) As Integer '----------------- L.Longre
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((WeekDay(DateSerial(Year(dat), 1, 1)) + 1) _...