Boucle dans un tableau (texte)

Bonjour,

J'aimerais créer une boucle qui permette de dire : tant qu'il y a une valeur (du texte) dans la colonne A, je demande à l'utilisateur quel texte entrer dans la colonne B.

J'ai réussi à le faire comme ça, mais ça serait plus efficace avec une boucle.

Sub TEST1()

Range("B2").Select
ActiveCell.FormulaR1C1 = Application.InputBox(prompt:="Texte", Type:=2)
Range("B3").Select
ActiveCell.FormulaR1C1 = Application.InputBox(prompt:="Texte", Type:=2)
Range("B4").Select
ActiveCell.FormulaR1C1 = Application.InputBox(prompt:="Texte", Type:=2)
Range("B5").Select

End Sub

Hello,

Ligne = 2
do while cells(Ligne,1) <> ""
cells(Ligne,2) = Application.Inputbox(prompt:="Texte", type:=2)
Ligne = Ligne + 1
loop

Merci beaucoup !