Générer un fichier avec une règle

Bonjour,

je suis novice en VBA et aimerais obtenir vos avis sur un sujet.

J'ai une liste de plusieurs clients dans ma base de données avec différentes informations. Il existe sur chaque client plusieurs lignes correspondant à des produits différents. J'aimerai à l'aide d'une macro en un clic générer un fichier par client avec les informations présentes dans la base de donnée de chaque client.

Exemple:

Un fichier du client X avec ses 10 lignes correspondants

Un fichier du client Y avec ses 12 lignes correspondants

Un fichier du client Z avec ses 20 lignes correspondants

ci-joint le fichier:

Merci beaucoup pour votre aide.

Bonjour

Un essai

ARFFF! j'avais pas vu , en classeur pas en onglet

Salut un autre essai,

les nouveaux Excel sont crées dans le même dossier que l'original

Bonjour toutes et tous

Remerciements à Gabin et à M12 ^^^^

on peut aussi supprimer le bouton de la macro 'Création fiche client' pour les new(s) classeur(s) cré(s) en rajoutant dans le code voir plus-bas* (ici*)

       ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Bouton 1")).Delete

donc:

Sub Creation_Client()
Dim Client As String
Dim n As Long, k As Long
n = 2
k = 2
If Cells(n, 1) <> "" Then Client = Cells(n, 1) Else Exit Sub
While Cells(n - 1, 1) <> ""
    If Client <> Cells(n, 1) Then
        Range("1:1," & k & ":" & n - 1).Copy
        Workbooks.Add
        Range("A1").Select
        ActiveSheet.Paste

       ActiveWorkbook.ActiveSheet.Shapes.Range(Array("Bouton 1")).Delete     ' ici* 

        ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\Fichier Client " & Client & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
        k = n
        Client = Cells(n, 1)
    Else
        n = n + 1
    End If
Wend
End Sub

crdlt,

André

Merci à tous pour vos réponses, cela marche trés bien.

Bonne journée.