Séléctionner première ligne vide

Bonjour forum,

J'ai un problème avec le programme VBA que je suis en train de créer. C'est un programme dont le but est de remplir des cases avec des données bien précises (nom, prénom, adresse, ect) et pour cela, j'ai crée une Userform. La ou jai un soucis, c'est pour créer la boucle qui permettra a mon programme de passer a la ligne automatiquement. Quand je le fais, soit il n'affiche rien, soit la boucle est infinie.

Do While Cells(intI, 1) <> ""
    intI = intI + 1
        If Cells(intI, 1) = "" Then

            Cells(intI, 1).Value = TextBox1.Value
            Cells(intI, 2).Value = TextBox2.Value
            Cells(intI, 3).Value = TextBox3.Value
            Cells(intI, 4).Value = TextBox4.Value
            Cells(intI, 5).Value = TextBox5.Value

        Else
        intI = intI + 1

        End If
    Unload Me
Loop

Voila mon code.

Quelqu'un pourrait m'aider ?

Bonjour,

Essaie:

Dim derLigne As Long

    lig = Range("A" & Rows.Count).End(xlUp).Row + 1
    Cells(lig, 1).Value = TextBox1.Value
    Cells(lig, 2).Value = TextBox2.Value
    Cells(lig, 3).Value = TextBox3.Value
    Cells(lig, 4).Value = TextBox4.Value
    Cells(lig, 5).Value = TextBox5.Value

    Unload Me

Bonjour,

voir correction, à tester

' recherche de la prememière ligne vide
Do While Cells(intI, 1) <> ""
    intI = intI + 1
loop

   ' on l'a trouvée, on peut y écrire les données
            Cells(intI, 1).Value = TextBox1.Value
            Cells(intI, 2).Value = TextBox2.Value
            Cells(intI, 3).Value = TextBox3.Value
            Cells(intI, 4).Value = TextBox4.Value
            Cells(intI, 5).Value = TextBox5.Value

    Unload Me

Ca marche de façon impeccable, merci beaucoup pour vos réponses, très rapides de surcroit !