Microsoft 365 problème de rangement sur un tableau excel (programation VBA)

Private Sub Cmd_Valider_Click()
Dim Nligne As Integer
Dim Ncolonne As Integer
    [Tableau4].Parent.Activate
    With Me.ListBox1
        Nligne = .ListCount: Ncolonne = .ColumnCount: Table = .List
        For I = 0 To .ListCount - 1
            L = [Tableau4].ListObject.ListRows.Add.Index
            [Tableau4[Departement]].Rows(L) = .List(I, 0)
            [Tableau4[Salle]].Rows(L) = .List(I, 1)
            [Tableau4[Ligne]].Rows(L) = .List(I, 2)
            [Tableau4[Résp revue]].Rows(L) = .List(I, 3)
            [Tableau4[Batch]].Rows(L) = .List(I, 4)
            [Tableau4[Réf]].Rows(L) = .List(I, 5)
            [Tableau4[Famille]].Rows(L) = .List(I, 6)
            [Tableau4[Anomalie]].Rows(L) = .List(I, 7)
            [Tableau4[Criticité]].Rows(L) = .List(I, 8)
            [Tableau4[Resp Anomalie]].Rows(L) = .List(I, 9)
            [Tableau4[Commentaire]].Rows(L) = .List(I, 10)
            If I = 0 Then [Tableau4[temps]].Rows(L) = Me.Tbx_Elaps
        Next
    End With
    Unload Me
 End Sub
 
Private Sub Cmd_Ajouter_Click()
Dim NbItem As Integer
    Ctrl = Array("cbx_dep", "cbx_salle", "cbx_ligne", "tbx_Rrév", "tbx_Batch", "tbx_Réf", "cbx_famille", "cbx_Ano", "tbx_Crit", "tbx_Rano", "tbx_Com")
    With Me.ListBox1
        'chargement des information
        .AddItem: NbItem = .ListCount - 1
        For I = 0 To 9
            .List(NbItem, I) = Me.Controls(Ctrl(I))
        Next
    End With
End Sub