Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Option Explicit
Dim f1 As Worksheet, tablo, tabloR()
Dim i&
Private Sub Worksheet_Activate()
Set f1 = Sheets("Feuil1")
tablo = f1.Range("A1").CurrentRegion
ReDim tabloR(1 To UBound(tablo, 1) - 1, 1 To Cells(1, Columns.Count).End(xlToLeft).Column)
For i = 2 To UBound(tablo, 1)
tabloR(i - 1, Hour(tablo(i, 2)) + 1) = tablo(i, 1) & "--" & Format(tablo(i, 2), "hh:mm")
Next i
Range("A2").Resize(UBound(tabloR, 1), UBound(tabloR, 2)) = tabloR
End Sub
Bye !