Erreur de copie de données (TextBox + ListBox + Boutondecommande)

Bonjour,

Je me permets de vous exposer ce code, celui me permets de sélectionner la derniere case non vide de la feuille, de faire +1, et de copier certaines valeurs provenant de TextBox, etc. Le sujet n'est pas là.

Lorsque je clique sur le bouton relié à ce code, les valeurs se copie bien de manière groupée, mais ne se copie pas à la ligne après la derniere ligne non vide. Elle se copie quelques lignes plus loin.

Avez-vous une explication ?

Cordialement.

'Création d'un nouvel article via le bouton 'Création"

Private Sub CommandButton2_Click()

Dim I As Integer 'déclare la variable I (Incrément)
Dim T As String 'déclare la variable T (Texte)
Dim codearti As Long

For I = 0 To Me.ListBox2.ListCount - 1 'boucle sur tous les éléments de la ListBox1
    If Me.ListBox2.Selected(I) = True Then  'condition : si l'élément est sélectionné
            T = Me.ListBox2.List(I) 'définit le texte T

    ElseIf Sheets("bibliotheque_ouvrage").Range("A1").Value = T Then
        End If 'fin de la condition
Next I
    Worksheets("bibliotheque_ouvrage").Activate
    codearti = Worksheets("bibliotheque_ouvrage").Cells(6000, 1).End(xlUp).Select

    ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate

    ActiveCell.Value = TextBox5
    ActiveCell.Offset(0, 1).Value = TextBox1
    ActiveCell.Offset(0, 2).Value = ComboBox13
    ActiveCell.Offset(0, 4).Value = TextBox4
    ActiveCell.Offset(1, 0).Value = "Code"
    ActiveCell.Offset(1, 1).Value = "Désignation"
    ActiveCell.Offset(1, 2).Value = "Unité"
    ActiveCell.Offset(1, 3).Value = "Perte"
    ActiveCell.Offset(1, 4).Value = "Quantité"
    ActiveCell.Offset(1, 5).Value = "Cadence"
    ActiveCell.Offset(1, 6).Value = "P.U déboursé"
    ActiveCell.Offset(1, 7).Value = "Montant"
    ActiveCell.Offset(2, 0).Value = csd1   'csd1 correspond à une désignation de TextBox
    ActiveCell.Offset(3, 0).Value = csd2
    ActiveCell.Offset(4, 0).Value = csd3
    ActiveCell.Offset(5, 0).Value = csd4
    ActiveCell.Offset(6, 0).Value = csd5
    ActiveCell.Offset(7, 0).Value = csd6

Bonjour

Sans données confidentielles

Cordialement