XL 2016 honte au "0" ( débutant un nombre )

=ET(CNUM(D50);NBCAR(D50)=10)

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Columns(1), UsedRange)
If Target Is Nothing Then Exit Sub
Dim x$, y$, n%, i%, z$
Application.EnableEvents = False 'désactive les évènements
Columns(1).NumberFormat = "@" 'format Texte
For Each Target In Target 'si entrées multiples
    x = Target: y = "": n = 0
    For i = 1 To Len(x)
        z = Mid(x, i, 1)
        If IsNumeric(z) Then
            n = n + 1
            y = y & z
            If n = 10 Then Exit For 'limite
        End If
    Next i
    If y <> "" Then If Len(y) < 10 Then y = String(10 - Len(x), "0") & y
    Target = y
Next Target
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    
     Dim C As Range
    
     'S'assurer qu'au moins une cellule modifiée se situe dans la colonne «N°»
     If Intersect(Target, [tbSaisies[N°]]) Is Nothing Then Exit Sub
    
     Application.EnableEvents = False
    
     'En cas de saisie multiple
     For Each C In Intersect(Target, [tbSaisies[N°]]).Cells
          
          'Tester si cette cellule peut être interprétée comme un nombre
          If Not Intersect(C, [tbSaisies[N°]]) Is Nothing And IsNumeric(C) Then
              'Si le contenu est dans les limites des numéros convertir en chaîne de 10 chiffres
              If CDbl("0" & C) > 0 And CDbl("0" & C) <= 9999999999# Then C.Value = "" & Format(C, "0000000000") Else C.ClearContents
          Else
               C.ClearContents
          End If
     Next
    
     Application.EnableEvents = True
    
End Sub

=CONCATENER(TEXTE([colonne1];00000)&"-"&TEXTE([@[colonne2]];0000000000))

=CONCATENER(TEXTE([colonne1];0)&"-"&TEXTE([@[colonne2]];0))