Bonjour,
Tu peux remplacer ton code par :
Sheets("Archives").Select
Range("A539").End(XlDown).select
If ActiveCell.Address = "$A$65536" Then
Range("A539").Select
End If
Activecell.Offset(1,0)= TextBox2.Value
Activecell.Offset(1,1)= TextBox2.Value & ".xls"
@+