Cela se trouve dans Ajout Ajout_Histo qu'on pourrait modifier ainsi (ce n'est pas ce qu'il y a de mieux mais cela devrait fonctionner) :
Sub Ajout_Histo(Tg As Variant, lg As Integer, idx As Integer)
Dim L As Single, T As Single, W As Single, H As Single, lrg As Single
Dim txt As String, clr As Long, md As Single, Hr0 As Single
Dim Hdeb As Double, Hfin As Double, Absc As Boolean
With ActiveSheet
lrg = .Columns(28).Width
Hr0 = .Range("D7").Value
Hdeb = Tg(1, 4) - Int(Tg(1, 4))
Hfin = Tg(1, 5) - Int(Tg(1, 5))
If Hfin = 0 Then Hfin = 1
T = .Rows(lg).Top + 2
H = .Rows(lg).Height - 4
L = .Columns(4).Left + lrg / 2 + (Hdeb - Hr0) * 24 * 4 * lrg
W = (Hfin - Hdeb) * 24 * 4 * lrg
If Not IsNull(Tg(1, 6)) Then txt = Tg(1, 6) & IIf(Tg(1, 7) <> "", " - " & Tg(1, 7), "") & IIf(Tg(1, 8) <> "", Chr(10), "")
If Not IsNull(Tg(1, 8)) Then txt = IIf(txt = "", Tg(1, 8), txt & Tg(1, 8))
En gros si la première valeur est différente de rien, on vérifie s'il y a une deuxième donnée à afficher alors on incruste un retour à la ligne, sinon non.
Mais ces deux lignes méritent d'être optimisées afin de prendre en compte les différents cas...
@ bientôt
LouReeD