Je ne vais pas éplucher tout ton code, tu le connais mieux que moi.
Exemple, dans Sub SumIf_Amount() :
Me.ListBox1.List(r, 2) = Application.Text(F, "[h]:mm")
Dans Private Sub ListBox1_Click() :
For r = 2 To 5
Me.ListBox2.List(ListBox2.ListCount - 1, r - 2) = Feuil1.Cells(i, r)
Next r
Me.ListBox2.List(ListBox2.ListCount - 1, r - 2) = Application.Text(Feuil1.Cells(i, r), "[h]:mm")
S'il y en a d'autres tu appliques le même traitement.
eric