Private Sub CommandButton1_Click()
Dim Client As String, DernièreLigne As Long, NomFichier As String, objShell As Object
Client = ComboBox1.Text 'Valeur choisie dans la liste
DernièreLigne = Cells(Rows.Count, 5).End(xlUp).Row 'Détermine la dernière ligne en colonne E
NomFichier = "Fichier_" & Client & "_" & Date
Range("A6:T7").AutoFilter Field:=2, Criteria1:=Client 'On trie le tableau en fonction du nom du client.
Range("A6:T" & DernièreLigne).Copy
ActiveSheet.AutoFilterMode = False
Unload Me
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False