Private Sub Bt_transfert_Click()
Dim x As Integer, Nb_L_ListBox As Integer
With Me.ListBox1
With Worksheets("feuil1")
For x = 1 To Me.ListBox1.ListCount
.Cells(x + dl, 1) = Me.ListBox1.List(x - 1, 0)
.Cells(x + dl, 2) = CDate(Me.ListBox1.List(x - 1, 1))
.Cells(x + dl, 5) = Me.ListBox1.List(x - 1, 1)
.Cells(x + dl, 3) = Me.ListBox1.List(x - 1, 2)
.Cells(x + dl, 4) = Me.ListBox1.List(x - 1, 3)
.Cells(x + dl, 4).NumberFormat = "$#,##0.00_);($#,##0.00)"
Next x
End With
End With
End Sub