Urgent SVB comment ajouter une ligne dans une listbox

ListBox1.AddItem "toto"

If modemodificationpermis = True Then
    NbrPermis = Me.LB_synthese_permis.ListCount + Me.TB_nbr_permis.Value
    IncrementPermis = Me.LB_synthese_permis.ListCount + 1
 ' Vérification que l'ajout n'est pas supérieur au nombre de permis à enregistrer
'Prévention d'erreur - Si c'est le cas alors il y a un affichage d'alerte précisant que ça n'est pas possible
    If IncrementPermis > NbrPermis Then
        MsgBox "Vous avez choisi de renseigner " & NbrPermis & " permis, vous ne pouvez pas en enregistrer " & IncrementPermis & "."
        Exit Sub
    End If
If IncrementPermis <= NbrPermis Then
Me.CB_permis = ajout
    Me.LB_synthese_permis.AddItem ajout '''Rien ne se passe dans la ListBox LB_synthese_permis alors qu'en toute logique
                                                        '''le choix fait dans la Combobox CB_permis devrait y êtra jouté
End If

If Confmodpermis = vbYes Then
    With Me.LB_synthese_permis
        .ColumnWidths = "00;100"
    End With
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet
    Set pl = .Range("A2:B" & dl) 'définit la plage pl
    .Range("A1").AutoFilter 'lance le filtre automatique
    .Range("A1").AutoFilter Field:=1, Criteria1:=id 'filtre la colonne 1 avec l'identifiant id comme critère
    On Error Resume Next
    Me.LB_synthese_permis.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox "LB_synthese_permis"
    On Error GoTo 0
    .Range("A1").AutoFilter 'annule le filtre automatique
    TB_nbr_permis.Locked = False
    CBcumulpermis.Enabled = True
    CB_permis.Enabled = True
End If