Insérer un nombre de ligne variable

Bonjour le forum !

Je suis sur un nouveau projet et j'ai besoin de vos talents !!!

Je vais essayer d'être claire

Sur un UserForm j'ai une zone de texte dans laquelle je vais renseigner des valeurs toutes séparées par des points virgules. Ce que je voudrais faire c'est créer une ligne pour chaque itération du point virgule (+1) . Sur chacune des lignes, dans une colonne spécifique, retrouver le numéro entre les points virgules. Puis dans les autres colonnes retrouver les infos des TextBox.

Pour illustrer mes propos je vous propose une image ci-dessous accompagné du fichier.

Par avance, merci de l’intérêt porté à ce poste

Cordialement

Bonjour,

A tester :

Private Sub CommandButton1_Click()

Dim i As Integer, Lig As Long

With Sheets(1)
    If Not IsEmpty(TextBox2) Then
        Lig = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        TabRep = Split(TextBox2, ";")
        For i = LBound(TabRep) To UBound(TabRep)
            .Range("A" & Lig + i) = TextBox1
            .Range("B" & Lig + i) = TabRep(i)
            .Range("C" & Lig + i) = TextBox3
            .Range("D" & Lig + i) = TextBox4
        Next i
    End If
End With

Unload Me

End Sub

Mais c'est super tout ça !! Merci à vous deux, vos deux réponses fonctionnent ! Merci