Bonjour PierreJean,
et bien dis donc cela fait longtemps que tu es sur ce site. dans les premiers peut-être.
la procédure...ouh !
J'ai essayé rajouté des lignes. Ca (coince) ici Sheets("Planning").Range("D" & ligne) = CDate(Split(x(m), "|")(2))
merci
A plus