Microsoft 365 VBA envoi mail avec PJ multiples

Public PJ(), m As Integer
Sub sh02_mailto_pj_filedialog()
'-- avec 1 pièce jointe en colonne K(11)
With Sheets("sh02_mailto")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
    '--boucle
    For i = 2 To dl
        If Cells(i, 9) = "x" Then        '--- choix des destinataires
            Cells(i, 10) = ""
            Set ml = ol.createitem(0)
            ml.To = .Cells(i, 4)
            ml.Subject = .Cells(i, 7)
            ml.CC = .Cells(i, 5)
            ml.BCC = .Cells(i, 6)
            ml.Body = .Cells(i, 8)
                If MsgBox("Voulez-vous joindre un document à votre mail ?", vbYesNo + vbQuestion) = vbYes Then
                Call SelectMFiles(i)
                '--- M1 : utilisation de cellules pour conserver une trace
                'dercol = Cells(i, Columns.Count).End(1).Column
                'For j = 12 To dercol
                'ml.attachments.Add .Cells(i, j).Value
                'Next j
                 '--- M2 : utilisation des données directement
                For j = 1 To m - 1
                ml.attachments.Add PJ(j, 1)
                Next j
                Else
                End If
            ml.Display 'afficher le mail
            Cells(i, 10) = Now
            End If
    Next i
End With
End Sub
Sub SelectMFiles(i)
    Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    ReDim PJ(1 To 10, 1 To 1)
    With fDialog
        .AllowMultiSelect = True
        .Title = "Please select the files"
        .Filters.Clear
        .Filters.Add "All supported files", "*.xlsb;*.xlsm"
        .Filters.Add "XLSB Files", "*.xlsb"
        .Filters.Add "XLSM files", "*.xlsm"
        If .Show = True Then
            Dim fPath As Variant
            m = 1
            For Each fPath In .SelectedItems
                PJ(m, 1) = fPath
                m = m + 1
            Next
        End If
    End With
'--si choix méthode M1 (path affiché colonnes L et suivantes)
'Cells(i, 12).Resize(1, 10) = ClearContents
'Cells(i, 12).Resize(1, m) = Application.Transpose(PJ)
End Sub

If PJ <> "" Then
   MsgBox "Opération annulée !" & Chr(10) & "xxxxx", vbInformation, "Information"
  Exit Sub
 End If

Sub msgb()
On Error Resume Next
retour:
If msgbox("Voulez-vous joindre un document à votre mail ?", vbYesNo + vbQuestion) = vbYes Then
    PJ = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    '-- gestion echappe
    If PJ Is Nothing Then '--échappe donne erreur sur le code mais avec resume next on passe ligne suivante
        If Err.Number <> 0 Then '--il y a une erreur donc le code va se poursuivre
        msgbox "Opération annulée !"
        'Err.Clear
        GoTo retour  '-- retour à la message box
        End If
    End If
End If
End Sub

Public Sub PrEnvoiMailPJ(deb As Integer, fin As Integer)

Dim OutlookApp As Object
Dim OutlookMail As Object
Dim Destinataire As String
Dim PJ As Variant
Dim i As Integer
Dim j As Integer

 
If MsgBox("Voulez-vous joindre un document à votre mail ?", vbYesNo + vbQuestion) = vbYes Then
    PJ = Application.GetOpenFilename("Tous les fichiers (*.*),*.* ", 1, "Sélectionnez le ou les fichiers à importer", , True)
    If IsArray(PJ) = False Then      
MsgBox "Opération annulée !" & Chr(10) & "xxxxx", vbInformation, "Information"
        Exit Sub
        End If

    MsgBox "Mail en préparation..." & Chr(10) & "xxxxxx", vbExclamation
        With Sheets("Feuil1")
            For i = deb To fin
                Destinataire = .Cells(i, "E")
                Set OutlookApp = CreateObject("outlook.application")
                Set OutlookMail = OutlookApp.createitem(0)
                    With OutlookMail
                        .Subject = "xxxxx - " + UserForm1.TextBox3.Value
                        .To = Destinataire
                        .CC = UserForm1.TextBox2.Value
                        .Body = UserForm2.TextBox1.Value
                    For j = 1 To UBound(PJ)
                        .attachments.Add PJ(j)
                    Next
                        .Display
                        '.send
                    End With
            Next i
        End With

Else

    MsgBox "Mail en préparation..." & Chr(10) & "xxxxxx", vbExclamation
        With Sheets("Feuil1")
            For i = deb To fin
            Destinataire = .Cells(i, "E")
            Set OutlookApp = CreateObject("outlook.application")
            Set OutlookMail = OutlookApp.createitem(0)
                With OutlookMail
                    .Subject = "xxxx - " + UserForm1.TextBox3.Value
                    .To = Destinataire
                    .CC = UserForm1.TextBox2.Value
                    .Body = UserForm2.TextBox1.Value
                    .Display
                    '.send
                End With
            Next i
        End With
End If
End Sub