XL 2016 GANTT simple en heure

=ET(COLONNE()>=EQUIV(ENT($E12);$9:$9;0)+ENT(48*MOD($E12;1))+1;COLONNE()<=EQUIV(ENT($F12);$9:$9;0)+ENT(48*MOD($F12;1))+1)

=H10+INDEX(9:9;8+48*ENT((COLONNE()-8)/(56-8)))

=ET($B12="Nom de la tache";H$11>=$E12;H$11<=$F12)

=SI(ET(H$10>=$E12;H$10<=$F12);$C12;"")

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A12:F1000]) Is Nothing Then
        Dim L%, C%, Tablo, Debut
         Application.ScreenUpdating = False
         L = Target.Row
         If Cells(L, "E") <> "" And Cells(L, "F") <> "" Then    ' On bosse uniquement si E et F sont remplies
            Range(Cells(L, "H"), Cells(L, "XG")).ClearContents  ' On efface la ligne
            Debut = Cells(L, "E")
            Tablo = Range("A10:XG10")                           ' Horaire dans tableau plus rapide
            Application.EnableEvents = False
            For C = 8 To 631                                    ' De H à XG
                If Abs(Tablo(1, C) - Debut) < "00:10:00" Then   ' Si case heure = heure début
                    Cells(L, C) = Cells(L, "D")                 ' On met la tache
                    Exit For
                End If
            Next C
         End If
    End If
Fin:
Application.EnableEvents = True
End Sub