Insertions de plus de 10 textbox et combobox dans listbox

Bonjour à tous, je travaille sur une macro depuis le matin, et même ChatGPT n'a pu m'aider.

J'ai sur mon formulaire 14 textbox et 2 combobox qui me servent à renseigner les données et informations des salariés.
Nous avons 10 salariés dans la boite et donc je dois insérer leur données 10 fois dans la listbox avant de tout sauvegarder
dans la feuille correspondante.
Ne pouvant y arriver avec la méthode AddItem, j'ai essayé la méthode List sans plus de succès. Voici mon code, Malheureusement
il ne marche pas, j'ai le message "Erreur d'exécution 381" impossible de définir la propriété list.
VB:

Dim i As Integer
Liste_Données.ColumnCount = 16
   For i = 1 To Total
        ' Récupérer le numéro de ligne à insérer
        Dim Ligne As Integer
        Ligne = Liste_Données.ListCount

        ' Insérer les données des TextBox dans les colonnes correspondantes
        Liste_Données.List(Ligne, 0) = Me.Txt_Période1.Value
        Liste_Données.List(Ligne, 1) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 2) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 3) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 4) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 5) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 6) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 7) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 8) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 9) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 10) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 11) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 12) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 13) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 14) = Me.Txt_Période2.Value
        Liste_Données.List(Ligne, 15) = Me.Txt_Période2.Value
        ' Ajoutez ici les valeurs pour les autres TextBox

        ' Incrémenter le numéro de ligne
        Liste_Données.AddItem
    Next i

Entre temps j'ai eu aussi à essayer le code ci-dessous qui m'insère bien les 16 colonnes, mais malheureusement l'insertion à la suite ne marche pas;
A chaque foi la listbox se vide pour insérer une nouvelle ligne de 16 colonnes à la fois

Dim i As Integer
Dim Total As Integer
Dim Données() As Variant

' Spécifiez ici le nombre total de fois que vous souhaitez insérer les données
Total = 1

' Définir la taille du tableau de données
ReDim Données(1 To Total, 1 To 16)

' Boucle pour récupérer les données des TextBox et ComboBox
For i = 1 To Total
' Insérer les données dans le tableau
Données(i, 1) = Me.Txt_Période1.Value
Données(i, 2) = Me.Txt_Période2.Value
Données(i, 3) = Me.Cbx_Type.Value
Données(i, 4) = Me.Cbx_Salarié.Value
Données(i, 5) = Me.Txt_Avance.Value
Données(i, 6) = Me.Txt_Opposition.Value
Données(i, 7) = Me.Txt_Retenues.Value
Données(i, 8) = Me.Txt_Rappel.Value
Données(i, 9) = Me.Txt_Base.Value
Données(i, 10) = Me.Txt_Fonction.Value
Données(i, 11) = Me.Txt_Transport.Value
Données(i, 12) = Me.Txt_AutresImp.Value
Données(i, 13) = Me.Txt_Caisse.Value
Données(i, 14) = Me.Txt_Assurance.Value
Données(i, 15) = Me.Txt_AutresNonImp.Value
Données(i, 16) = Me.Txt_Sursalaire.Value

Next i

Quelqu'un pourrait m'aider.

Bonjour,

pour votre deuxième code, il me semble que l'on ne peut pas redimensionner la première partie d'un tableau :
' Définir la taille du tableau de données
ReDim Données(1 To Total, 1 To 16)

Il faut "renverser" le tableau pour travailler dessus et au moment de l'intégrer il une nouvelle fois le renverser :
' Définir la taille du tableau de données
ReDim Données(1 To 16,1 To Total)

Et en effet, je crois me souvenir que l'on ne peut remplir plus de 9 colonnes dans une ListBox avec l'instruction standard d'ajout, il faut donc passer par un tableau.
Vous remplissez le tableau des données voulues, puis vous affectez ce tableau en une seule fois à la ListBox.

Alors oui ce matin je ne donne pas le code, désolé, ce sont des choses dont je n'ai pas l'habitude...

@ bientôt

LouReeD