re,
dans la macro, on a ceci et si vous changez l'actuel "aB(i,4)" par MaDate, cela fonctionnera
For k = 1 To 11
aOut(ptr, k) = aA(j, k)
Next
aOut(ptr, 12) = aB(i, 3)
aOut(ptr, 13) = MaDate 'au lieu de aB(i,4)
For k = 5 To 20
If Len(aB(i, k)) > 0 Then aOut(ptr, 14) = aOut(ptr, 14) & IIf(Len(aOut(ptr, 14)), ", ", "") & aB(2, k)
Next