For x = 2 To i
With UserForm1.ListBox1
.AddItem Sheets("arrets").Range("A" & x)
.List(.ListCount - 1, 1) = Sheets("arrets").Range("B" & x)
.List(.ListCount - 1, 2) = CDate(Sheets("arrets").Range("C" & x))
.List(.ListCount - 1, 3) = Format(Sheets("arrets").Range("D" & x), "hh:nn:ss")
End With
Next