Code VBA pour envoyer à plusieurs destinataire

Bonjour à tous,

Je monte un fichier afin d'envoyer différents tableau d'une feuille à chacun des destinataires des différents tableaux.

J'ai deja mon code pour envoyer un mail mais je ne sais pas comment éviter de faire un bouton avec un code pour chaque tableau à envoyer.

Exemple dans le fichier joint:

J'ai 4 boutons sous chaque tableau que je veux envoyer à 4 personnes différente.

Je voudrais savoir s'il est possible de tout compiler dans un seul code qui me fasse l'envoi de tous les tableau.

Pour chaque tableau je met le code avec le tableau associé. Sachant que j'ai au minimum 20 tableaux à envoyer!!!

Merci d'avance pour vos idées.

Voici mon code actuel:

Private Sub CommandButton1_Click()

'Configuration des variables
Dim OL As Object, mail As Object, wDoc As Object, rng As Object
Dim title As String
Dim filedate As String

Set OL = CreateObject("Outlook.Application")
Set mail = OL.CreateItem(olMailItem)
Set wDoc = mail.GetInspector.WordEditor

'Configuration du mail

title = "Commande"

   Sheets("Mail").Activate

    With mail
        .To = Sheets("Commande").Range("$F$2").SpecialCells(xlCellTypeVisible).Value
        '.CC = ""
        '.BCC = ""
        .Subject = title
        .BodyFormat = olFormatHTML
        .Display

        ' Range
        Range("A1:D2").Copy
        Set rng = wDoc.Content
        rng.Paste

        ' Insertion texte premier tableau
        rng.InsertAfter "" & vbNewLine & "Bonjour" & " " & Cells(2, 2) & "," & _
        Chr(10) & "Voici le récap de ta commande." & vbCrLf

        '.Send
        .Display
    End With

    Set OL = Nothing
    Set mail = Nothing
    Set wDoc = Nothing

End Sub

Bonjour,

Pas une âme charitable pour me sortir de ce problème?