Private Sub CommandButton1_Click()
Dim ChCLASSEURB$, MAJ$
ChCLASSEURB = "C:\Temp\ClasseurB.xls" 'ici adapter selon vos besoins
MAJ = TextBox1
Application.ScreenUpdating = False
With Workbooks.Open(ChCLASSEURB) 'on ouvre
With .Worksheets(1)'dans la feuille 1 du classeurB, on copie
.Range("A65536").End(xlUp)(2).Resize(, 3) = Array(MAJ, Date, Time)'ceci
End With
.Close True'on ferme le classuer B en enregistrant les données qui viennent d'être ajoutées
End With
Unload Me'on décharge l'userform du classeurA
End Sub