Un inputbox qui rempli les lignes vides

Bonjour,

Dans une feuille excel, à chaque fois que je entrer un nouvel arrivant je fais appelle à une inputbox.

Le problème est que je n'arrive pas à intégrer les nouvelles données dans une ligne vide qui se trouve à la suite.

Voilà ce que j'ai déjà fait pour le moment, c'est pas grand chose mais ce ne marche pas :

Private Sub CommandButton1_Click()

Dim Lg%

Lg = Sheets("Feuil1").Range("A65536").End(xlUp)(2).Row

nom = InputBox("Quel est votre nom ?", "Votre nom")

Sheets("Feuil1").Range("B" & Lg) = nom

End Sub

Ca rempli toujours la même case,

En vous remerciant par avance,

Bonjour Manu68

Je ne comprends pas cette ligne devrait fonctionner

Lg = Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1,0).Row

Dans qu'elle colonne se trouve tes noms ?

A+

Bonjour

Ta 1ère ligne vide se réfère à la colonne A -

   Lg = Sheets("Feuil1").Range("A65536").End(xlUp)(2).Row

Or, tu remplis la colonne B -

Dans ces conditions, Lg est toujours égal à la même valeur.

Change A par B pour calculer ta 1ère ligne vide

Amicalement

Nad

Ok j'ai compris en gros j'ai encore mis la charrue avant les boeufs....

Merci messieurs