Ajouter un texte à la première case vide

Bonjour,

J'ai créer une UserForm avec un bouton valider.
Lorsque je clique sur "valider" j'aimerais que mes combobox soient enregistrées dans la première case vide d'une colonne. Voici le code que j'ai essayé mais celà ne fonctionne pas, je recopie à chaque fois sur la première case et annule donc ce qui a été fait avant.

Private Sub CommandButton2_Click()

Dim lin As Integer
lin = 2
If Range("BDD!P7").Value <> "" Then
MsgBox ("Le nombre maximal d'article a été atteint")
Exit Sub
Else
While Range("BDD!P" & lin).Value <> ""
lin = lin + 1
Wend
Range("Données!P" & lin) = ComboBox1.Value
Range("Données!Q" & lin) = qte_commander.Value
Range("Données!R" & lin) = prix_commande.Value
MsgBox ("Article ajouté")

End If
End Sub


Merci d'avance pour votre réponse.