' ouverture travaux
Dim Wb As Workbook, C, D, aSech, aCli, aEp, aEss, aPmp, PlusUne%
Set Wb = Workbooks.Open(Chemin)
Lg = 8
Set Sh = Wb.Sheets(Me.Cbox_mois.Text)
For Each C In Sechoir.Keys
aSech = Split(Sechoir(C), "*")
Sh.Cells(Lg, 2) = aSech(0)
Sh.Cells(Lg, 4).Value = aSech(1)
Sh.Cells(Lg, 4) = Format(Sh.Cells(Lg, 4), "dd/mm/yyyy")
Sh.Cells(Lg, 6) = aSech(2)
Sh.Cells(Lg, 6) = Format(Sh.Cells(Lg, 6), "dd/mm/yyyy")
i = 4