Salut
dans ce cas tu adaptes le code
if r.Cells(n,1) = vide then
r.cells(n,1)= valeur saisi dans l'inputbox
...
tu sais, il faut aussi chercher par toi même, c'est comme cela qu'on apprend, tu as l'explorateur d'objet et l'aider en ligne qui sont très bien pour trouver des exemples... un bon bouquin, un peu de temps et zou...
bon courage
Un problème sans solution est un problème mal posé - A. Einstein