Macro n'enregistre pas les lignes d'une listBox dans feuille

Bonjour tout le monde

Veuillez voir ma macro ci jointe, qui refuse d'enregistrer les données d'une liste dans feuille"Order" ,userform: "

Add_Order"

et merci pour vos vues et solutions.

Option Explicit
Public memoire As Integer
Private Sub Commander_Click()
Dim dl, ligne, nombre_ligne As Long
   If Me.List_Order.ListCount > 0 And Me.Cbx_Fournisseur.ListIndex >= 0 Then
        If MsgBox("Vouler-vous passer cette coamande ?") = vbYesNo = vbYes Then
        nombre_ligne = Me.List_Order.ListCount - 1
        For ligne = 0 To nombre_ligne
        Sheets("Order").ListObjects(4).ListRows.Add
        dl = Sheets("Order").Range("b9999").End(xlUp).Row

   '''Afficher les information dans la base de donnée Order
Sheets("Order").Range("B" & dl) = Me.Label_info.Caption              '''Nr Commande
Sheets("Order").Range("C" & dl) = CDate(Now())                       '''Date
Sheets("Order").Range("D" & dl) = Me.List_Order.List(ligne, 0)       '''Article
Sheets("Order").Range("E" & dl) = Me.List_Order.List(ligne, 1)       '''Nom
Sheets("Order").Range("F" & dl) = CInt(Me.List_Order.List(ligne, 2)) '''Quantité
Sheets("Order").Range("G" & dl) = CCur(Me.List_Order.List(ligne, 3)) '''Prix
Sheets("Order").Range("I" & dl) = Cbx_Fournisseur                    '''Fournisseur

        Next ligne

      Sheets("Config").Range("d20") = Sheets("Config") = Range("d20") + 1
Unload Add_Order
End If

    Else
    MsgBox "Pas de commande disponnilbe"
    End If

End Sub

Bonjour,

Un essai ...

Private Sub Commander_Click()
Dim dl, ligne, nombre_ligne As Long
Dim Reponse As Integer

   If Me.List_Order.ListCount > 0 And Me.Cbx_Fournisseur.ListIndex >= 0 Then
      Reponse = MsgBox("Voulez-vous passer cette commande ?", vbYesNo)

      If Reponse = vbYes Then

         nombre_ligne = Me.List_Order.ListCount
         For ligne = 1 To nombre_ligne
            dl = Range("Tableau4").Rows.Count + 1

            '''Afficher les information dans la base de données Order
            Range("Tableau4").Columns(1).Cells(dl) = Me.Label_info.Caption      '''Nr Commande
            Range("Tableau4").Columns(2).Cells(dl) = CDate(Now())      '''Date
            Range("Tableau4").Columns(3).Cells(dl) = Me.List_Order.List(ligne - 1, 0)  '''Article
            Range("Tableau4").Columns(4).Cells(dl) = Me.List_Order.List(ligne - 1, 1)    '''Nom
            Range("Tableau4").Columns(5).Cells(dl) = CInt(Me.List_Order.List(ligne - 1, 2))    '''Quantité
            Range("Tableau4").Columns(6).Cells(dl) = CCur(Me.List_Order.List(ligne - 1, 3))    '''Prix
            Range("Tableau4").Columns(8).Cells(dl) = Cbx_Fournisseur      '''Fournisseur

         Next ligne

         Sheets("Config").Range("d20") = Sheets("Config").Range("d20") + 1
         Unload Add_Order
      Else
         MsgBox "Pas de commande disponible"
      End If
   End If
End Sub

ric