Sub Graphique()
Application.ScreenUpdating = False
[F:K].ClearContents: [G1] = "H0": [I1] = "H1": [K1] = "H2"
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
tablo = Range("A2:C" & DL)
ReDim T(1 To UBound(tablo), 1 To 6)
H0 = 1: H1 = 1: H2 = 1
For i = 1 To UBound(T)
Select Case tablo(i, 1)
Case "H0": T(H0, 1) = tablo(i, 2): T(H0, 2) = tablo(i, 3): H0 = H0 + 1
Case "H1": T(H1, 3) = tablo(i, 2): T(H1, 4) = tablo(i, 3): H1 = H1 + 1
Case "H2": T(H2, 5) = tablo(i, 2): T(H2, 6) = tablo(i, 3): H2 = H2 + 1
End Select
Next i
[F2].Resize(UBound(T, 1), UBound(T, 2)) = T
[F:K].Columns.AutoFit
End Sub