Changer le format de 2 colonnes à partir d'un fichier généré auto

Bonjour,

Dans le code ci-dessous, je souhaiterais ajouter le fait que dans le nouveau fichier créé (après avoir fait le copié/collé valeur), les colonnes Q et X présentent un format minimal de 00 (dans le cas où j'ai un 7 par exemple, j'ai 07 qui s'affiche). En revanche, si j'ai 13140, ça doit rester ainsi. Et si je n'ai rien dans la cellule, il faut que ça reste vide ( et pas 00). Exemple problématique : dans le fichier Excel ci-joint (nouveau fichier généré via la macro), la cellule Q47 se trouve avec un 6 et non un 06

Avec toutes les tentatives et après être allé chercher l'info dans des tutos, je n'arrive pas à utiliser correctement Formatnumber

Merci par avance de votre aide !

Bien cordialement

JA

Sub GENERER_NOUVEAU_FICHIER_IMPORT_CLIENT()
Dim ChDir As String, nmFich As String
ChDir = "\\ADIO-FILES\datas\ENTREPRISE\20-Exploitation\ETL_Exploitation\4 - Résas_Client\"
nmFich = Sheets("Référentiel").Range("X21").Value & ".csv"
With ThisWorkbook
    AfficheDebloque .Sheets("Import SUD"), "ETL"
    .Sheets("Import SUD").Copy
    With ActiveWorkbook
        .Sheets(1).Range("A1:DC10000").Value = .Sheets(1).Range("A1:DC10000").Value
        'application.displayalerts = false
        .SaveAs Filename:=ChDir & nmFich, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
        'application.displayalerts = true
        .Close
    End With
    CacheBloque .Sheets("Import SUD"), "ETL"
End With
End Sub

Sub AfficheDebloque(Feuille As Worksheet, Optional Password As String)
With Feuille
    .Unprotect Password
    .Visible = True
End With
End Sub

Sub CacheBloque(Feuille As Worksheet, Optional Password As String)
With Feuille
    .Visible = False
    .Protect Password
End With
End Sub

Bonjour,

Je me permets de clôturer le post en mettant la réponse d'une personne qui a eu la gentillesse de m'aider

Ci-dessous le code qui a solutionné le pb

Dim ChDir As String, nmFich As String, c As Range
'------
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .Sheets(1).Range("A1:DC10000") = .Sheets(1).Range("A1:DC10000").Value
        With .Sheets(1).Range("Q:Q,X:X")
            If Application.Count(.Cells) Then
                .NumberFormat = "@" 'format Texte
                For Each c In .SpecialCells(xlCellTypeConstants, 1)
                    If Len(c.Value) = 1 Then c = 0 & c
                Next
            End If
        End With
        .SaveAs Filename:=ChDir & nmFich, FileFormat:=xlCSV, Local:=False, CreateBackup:=False
        .Close
    End With

Excellente journée à tous

Bien cordialement