Dessin = True
Application.ScreenUpdating = False
'RAZ "__"
With ActiveSheet
Deb = .Range("B5").Value
Hr0 = .Range("D4").Value
Tg = Select_Mois(TBdd, 2, Deb) 'Num auto, Date, Début, Fin, ID, Noms, N° doublon
If UBound(Tg, 1) > 1 Then
For i = 1 To UBound(Tg, 1)
lg = 5 + Int(CDate(Tg(i, 2))) - Deb
cl = 4 + (Tg(i, 3) - Hr0) * 48
L = 2 + .Columns(cl).Left + .Columns(cl).Width / 2
T = 3 + .Rows(lg).Top '<----------------------------Ligne 14
H = .Rows(5).Height - 6
W = .Columns(4).Width * (Tg(i, 4) - Tg(i, 3)) * 48 - 4
If W > 0 Then
Histo Tg(i, 1), L, T, W, H, Tg(i, 5) ' dessin de l'histogramme
Etiquettes lg, L, T, Format(Tg(i, 3), "h:nn") ' affichage du début
Etiquettes lg, L + W, T, Format(Tg(i, 4), "h:nn") ' affichage de la fin
End If