XL 2013 [RESOLU] Erreur de compilation End with sans with

Private Sub CommandButton2_Click()
With Me.ListBox1
    .AddItem
    .List(memoire, 0) = Me.TextBox3 'Ajout sur la première colonne l'article
    .List(memoire, 1) = Me.TextBox4 'Ajout sur la deuxième colonne la désignation
    .List(memoire, 2) = Me.ComboBox7.Text 'Ajout sur la troisième colonne Catégorie
    .List(memoire, 3) = Me.TextBox6 'Ajout sur la 4ème colonne Quantité
    .List(memoire, 4) = Me.ComboBox8.Text 'Ajout sur la 5ème colonne Unité
    .List(memoire, 5) = Me.TextBox7 'Ajout sur la 6ème colonne Prix
    .List(memoire, 6) = Me.TextBox8 'Ajout sur la 7ème colonne Rabais
 If Me.TextBox6 And Me.TextBox7 And Me.TextBox8 <> "" Then 'Si quantité et prix  et rabais <> vide alors
 .List(memoire, 7) = Format(((Me.TextBox6 * Me.TextBox7) * (1 - (Me.TextBox8 / 100))), "Standard") 'Prix x quantité x rabais
        If Me.TextBox6 And Me.TextBox7 <> "" And Me.TextBox8 = "" Then 'Si quantité et prix <> vide et rabais = vide alors
        Me.TextBox8.Value = "" ' Rabais format vide
        .List(memoire, 7) = Format((Me.TextBox6 * Me.TextBox7), "Standard") ' article colonne 7 dont le montant = Prix x Quantité
    End If
End With

    memoire = memoire + 1
    
Dim t As Single 'déclare la variable T (Total) / Type à adapter
Dim i As Integer
With ListBox1 'prend en compte la ListBox1 (à adapter)
    For i = 0 To .ListCount - 1 'boucle sur tous les lignes de la ListBox1
        t = t + .Column(7, i) 'définit le total T (colonne 7 et la valeur c'est la "8ème" colonne)
    Next i 'prochaine ligne de la boucle
    TextBox11.Value = t 'renvoie dans la TextBox1 le total T (à adapter)
    Sheets(2).Range("A11").Resize(.ListCount, .ColumnCount) = .List 'renvoie la valeur dans la cellule A1 la les éléments de la ListBox1
End With 'fin de la prise en compte de la ListBox1

End Sub