Voilà quelque chose de plus détaillé :
Ce code est à mettre dans le UserForm "ecran_formation"
Private Sub UserForm_initialize()
Dim Max 'Déclaration de la variable Max, se sera la référence à la dernière cellule utilisée d'une colonne
Dim f 'Déclaration de la variable f, se sera la référence à la feuille où se trouve les données
Set f = Sheets("Bilan") 'f fait référence à la feuille Bilan
Max = f.Cells(Rows.Count, 1).End(xlUp).Row 'Max prend pour valeur le numéro de la dernière cellule pleine de la colonne 1 (ou A)
For i = 5 To Max 'Ici on balaye les cellule de la ligne 5 à la ligne Max
Me.Listformation.AddItem f.Cells(i, 5) 'On ajoute toutes les données à la ListBox contenue entre 5 et Max de la colonne 5 (ou E)
Next i
End Sub
Ce code est à mettre dans le UserForm "ecran_auteur"
Private Sub UserForm_initialize()
Dim Max 'Déclaration de la variable Max, se sera la référence à la dernière cellule utilisée d'une colonne
Dim f 'Déclaration de la variable f, se sera la référence à la feuille où se trouve les données
Set f = Sheets("Bilan") 'f fait référence à la feuille Bilan
Max = f.Cells(Rows.Count, 1).End(xlUp).Row 'Max prend pour valeur le numéro de la dernière cellule pleine de la colonne 1 (ou A)
For i = 5 To Max 'Ici on balaye les cellule de la ligne 5 à la ligne Max
Me.Listauteurs.AddItem f.Cells(i, 2) 'On ajoute toutes les données à la ListBox contenue entre 5 et Max de la colonne 5 (ou E)
Next i
End Sub