Microsoft 365 *Resolu* VBA, Conversion en CSV sans derniere virgule

            'Ecriture du message dans le fichier global
            Mes=Mid(Mes,1,Len(Mes)-1)
            Print #Num, Mes
            'Ecriture du message dans le fichier au nom de la feuille
            Mes=Mid(Mes,1,Len(Mes)-1)
            Print #Num2, Mes

Sub test3()
   Dim plage As Range, L&, Dercol&, ligne$
   Set plage = Feuil1.[A1].CurrentRegion
    With plage
        For L = .Row To .Rows.Count + .Row - 1
            Dercol = Cells(L, Columns.Count).End(xlToLeft).Column
            If Dercol > 1 Then
                  ligne = Join(Application.Index(Range(.Cells(L, .Column), Cells(L, Dercol)).Value, 1, 0), ";")
            Else
                ligne = Cells(L, 1)
            End If
            Debug.Print ligne
        Next
    End With
End Sub

            For j = Len(Mes) To 1 Step -1
                'supprime les séparateurs situés à la fin du texte
                If Mid(Mes, j, 1) = Separ Then Mes = Left(Mes, j - 1) Else Exit For
            Next j

Option Explicit
Sub creer_CSV()


'================================================================
'              Exportation de feuilles en fichiers .CSV
'================================================================
Dim I&, j&, k&, Num&, Num2&
Dim Mes$, Fic$, Chem$, Separ$, All$
Dim Plg As Variant
Dim F As Worksheet
'================================================================
'                           Paramétrage
'================================================================
'Sufixe du fichier (èvite l'écrasement des fichiers précédents)
'Les fichiers porteront le nom des feuilles correspondantes plus le suffixe
Fic = "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "h""H""mm") & ".csv"
'Chemin du dossier où seront crées les fichiers
' / ! \ Le chemin doit déja exister / ! \
Chem = "C:\temp"
'Séparateur utilisé pour la création des .CSV
Separ = ","
'Nom du fichier global
All = "All Gift Card"
'================================================================
'                           Traitement
'================================================================
'récupération d'un numéro de fichier non utilisé
Num = FreeFile
'Ouverture d'un fichier qui nous servira comme fichier global
Open Chem & "\" & All & Fic For Output As #Num
'Pour chaque feuille présentent dans le classeur actif
For Each F In ActiveWorkbook.Worksheets
    'récupération d'un numéro de fichier non utilisé
    Num2 = FreeFile
    'Déclaration de la valeur du tableau
    '(toute les données présentent sur la feuille)
    Plg = F.Range("A1").CurrentRegion.Value
    'Ouverture d'un fichier au nom de la feuille
    Open Chem & "\" & F.Name & Fic For Output As #Num2
        'Pour chaque ligne du tableau, sauf la première (+ 1) pour ne pas prendre les en tête de colonnes
        For I = LBound(Plg, 1) + 1 To UBound(Plg, 1)
            'Pour chaque colonne du tableau
            For j = LBound(Plg, 2) To UBound(Plg, 2)
                'Le message est ègal au message plus la valeur de la cellule
                ' en ligne i colonne j plus le séparateur
                Mes = Mes & Plg(I, j) & Separ
            'Prochaine colonne
            Next j
            For j = Len(Mes) To 1 Step -1
                'supprime les séparateurs situés à la fin du texte
                If Mid(Mes, j, 1) = Separ Then Mes = Left(Mes, j - 1) Else Exit For
            Next j
            'Ecriture du message dans le fichier global
            Print #Num, Mes
            'Ecriture du message dans le fichier au nom de la feuille
            Print #Num2, Mes
            'Vide le message avant de passer à la ligne suivante
            Mes = ""
        'Ligne suivante
        Next I
    'Quand la boucle sur toutes les lignes du tableau est terminée
    'Fermeture du fichier au nom de la feuille
    Close #Num2
    'Suppression du tableau qui sera recréé à la prochaine feuille
    Erase Plg
'Prochaine feuille
Next F
'Fermeture du fichier global
Close #Num
'================================================================
'Boite de message pour la fin du traitement
MsgBox "Fichiers convertis en CSV dans C: Temp"
End Sub

Sub test2()
    [A1].CurrentRegion.Copy
    t = Replace(Replace(Replace(CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT"), vbTab, ";"), ";;;", ""), ";;", "")
    t = Replace(t, ";" & vbCrLf, vbCrLf)
    Application.CutCopyMode = False    'on relache la plage copiée
    Debug.Print t
End Sub

            'Ecriture du message dans le fichier global
            If I > 1 Then Print #Num, Mes Else If F.Index = 1 Then Print #Num, Mes
            'Ecriture du message dans le fichier au nom de la feuille
            Print #Num2, Mes