Private Sub TAjouter_Click()
Dim c As Control
Dim derligne As Long
On Error Resume Next
derligne = Sheets("Clients").Range("A1000").End(xlUp).Row
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then Sheets("Clients").Range("A" & derligne).Offset(1, c.Tag).Value = c.Text
Next
Trier ' trie après l'ajout d'un nouveau client
' copie le feuille client dans un nouveau classeur
Sheets("Clients").Select
Sheets("Clients").Copy
ActiveWorkbook.SaveAs Filename:="C:\" & Me.TextBox1.Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Me.Hide
End Sub