Convertir une date en format de texte non normalisés

Sub conversion_date()
    Dim S1, S2, Plage, n
    
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide colonne A
        Plage = .Range("A1:A" & derlig)     'mise en memoire plage de cellules colonne A
        'boucle sur table Plage
        For n = 1 To derlig
            If Len(Plage(n, 1)) < 6 Then        'de j=1 a 9
                S1 = 1: S2 = 2
            Else        'de j=10 a fin mois
                S1 = 2: S2 = 3
            End If
            'ecriture en colonne B, a modifier pour ecrire dans meme colonne
            .Range("B" & n) = CDate(Left(Plage(n, 1), S1) & "/" & Mid(Plage(n, 1), S2, 2) & "/" & Right(Plage(n, 1), 2))
        Next n
    End With
End Sub