Généraliser une macro

Bonjour,
je suis novice en vba et je ne parviens pas à réaliser une macro.
Voici ma macro mais elle ne fonctionne que sur les 2 premières lignes et je voudrais la généraliser et en faire une boucle sur un nombre infini de lignes :


Sub Macro2()

Dim facture As String
facture = InputBox("Numéro de facture", "Facture")
Range("c5") = facture

Dim dat As String
dat = InputBox("Date de facture", "Facture")
Range("d5") = dat

ActiveSheet.Buttons.Add(390, 60, 64, 14).Select
Selection.Characters.Text = facture
With Selection.Font
.Name = "Lucida Grande"
.FontStyle = "Normal"
.Size = 12
.StrikeThrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

While MsgBox("Voulez-vous vérifier une autre facture?", vbYesNo) = vbYes


Dim facture2 As String
facture2 = InputBox("Numéro de facture", "Facture")
Range("c6") = facture2

Dim dat2 As String
dat2 = InputBox("Date de facture", "Facture")
Range("d6") = dat2

ActiveSheet.Buttons.Add(390, 75, 65, 14).Select
Selection.Characters.Text = facture2
With Selection.Font
.Name = "Lucida Grande"
.FontStyle = "Normal"
.Size = 12
.StrikeThrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic

End With

Wend

End Sub


Merci d'avance pour vos réponses