Bonsoir à tous
voila une tite formule qui marche sous excel 2000
ligne = Sheets("Feuil1").Range("A33").End(xlUp).Row + 1
Cells(ligne, 1).Value = txtDate1
Cells(ligne, 2).Value = TextNsm
Cells(ligne, 3).Value = TextNrt
Voila si ça te vas.
salutation
@+ denis