Difficulté à obtenir un format de nombre en VBA

Bonjour à tous

Je vous explique mon problème sur la ligne 1 j'ai 5 chiffres (5,8,9,12,19) je boucle sur ces 5 chiffres mais je veux obtenir

un format de nombre comme ceci (050809) etc...Je ne trouve pas la solution par VBA

Je vous joins le fichier

Merci pour votre aide

bonjour,

une adaptation de ton code

Sub test()
    m = 1

    dercol = Cells(1, Columns.Count).End(xlToLeft).Column
    For n = 1 To dercol
        For i = n To dercol - 2
            For j = i + 1 To dercol - 1
                For k = j + 1 To dercol
                    m = m + 1
                    Cells(m, 1) = Format(Cells(1, i), "00") & Format(Cells(1, j), "00") & Format(Cells(1, k), "00")
                    Cells(m, 1).NumberFormat = "000000"
                Next k
            Next j
        Next i
    Next n
End Sub

Bonjour à tous,

h2so4,

J'y étais presque il manquait juste la dernière ligne que tu as rajouté

Cells(m, 1).NumberFormat = "000000"

J'avais essayé plusieurs combinaisons mais ça ne fonctionnait pas...

Merci de ton aide

J'y étais presque il manquait juste la dernière ligne que tu as rajouté

et la référence aux cellules en utilisant i,j,k plutôt que les valeurs i,j,k