Bonjour Didier Two et le forum,
Finalement je suis en train de boire mon café en relisant ce fil...
En fait c'est ton histoire de fil introuvable désespéreément qui embrouille un peu...
Car j"ai l'impression que je suis passé à coté de ta question au niveau simplicité, car ta solution est, si il faut, celle que l'on retrouve des "millions" de fois dans ce forum, ou au travers de diverses démos... Enfin pour être sûr que l'on ne passe pas à coté des choses simples dans ce fil :
Sub LastLigne
Dim L as Long
Dim Donnee As String
L = Sheets(1).Range("A65536").End(XlUp).Row + 1
Donnee = InputBox("Entrez Votre Donnée", "Saisie", "test")
Sheets(1).Range("A" & L).Value = Donnee
End Sub
Cependant DEUX choses sont primordiales pour que ce code fonctionne...
1) il faut qu'au moins une cellule contienne une valeur en colonne A
2) si les celulles sont remplies de manière "dispercée" cette macro trouvera la dernière cellule vers le bas (en la cherchant en partant du bas) et écrira dans la cellule suivante, sans combler les "trous"... (La macro plus haut, par sa boucle, remplira les "trous")
Voilà, comme ça c'est un fil sans trou aussi
Bonne Journée
@+Thierry