DateFin = .Range("X2").Value
For Each Cell In Plage
DateDeb = Cell.Offset(, 6).Value 'date en g
Cell.Offset(, 7).Value = NumSem(DateDeb) 'semaine en H
Cell.Offset(, 8).Value = DateFin - DateDeb 'écart en I
Next Cell
End With
Function NumSem(D)
'norme iso
NumSem = DatePart("ww", D, vbMonday, vbFirstFourDays)
End Function