Bonjour a vous tous
AtTheOne
Merci pour ton retour
je viens de faire un test mais je ne sais ou vas cette partie?
If InStr(1, tbABS(CLB, DateJ), " à ", vbTextCompare) > 0 Then
ArrDép = Split(tbABS(CLB, DateJ), " à ")
TbHoraires(CLB, 1 + (J - 1) * 2) = CDbl(CDate(ArrDép(0)))...