conversion format date en texte en conservant un format de date

'detecter date et la mettre en texte + bon format
              ElseIf IsDate(cell) Then
              cell.EntireColumn.Rows("2:761").Select
              Selection.NumberFormat = "@"
              'Selection.NumberFormat = "yyyy-mm-dd"
              For Each c In Range(Cells(2, cell.Column), Cells(761, cell.Column))
                If c.Value <> "" Then c.Value = Format(c.Value, "yyyy-mm-dd")
            Next c
            Selection.NumberFormat = "General"

Option Explicit
Sub Traitement()

'- Déclaration des variables
Dim dl As Integer, dc As Integer, lf As Integer
Dim r As Range
Dim f1 As Worksheet, f2 As Worksheet, f3 As Worksheet, f4 As Worksheet
Dim c As Variant, k As Variant
Dim dD As Object, dM As Object, dP As Object
Dim T As Long

'- On enregistre les onglets
Set f1 = Feuil1: Set f2 = Feuil12: Set f3 = Feuil2

'- On désactive les application
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'- On débute la procédure
On Error Resume Next
Worksheets("traitement").Delete
'On Error GoTo 0

'- Copie de la feuille PO-PB en dernière position et renomme par traitement
f1.Copy After:=Worksheets(Worksheets.Count)
Set f4 = Worksheets(Worksheets.Count)
f4.Name = "traitement"

'- On copie la ligne 1 de la bdd
With f2
    .Range(.Cells(1, 1), .Cells(1, .Cells.Find("*", , , , xlByColumns, xlPrevious).Column)).Copy f4.Cells(1, 1)
End With

'- On joue avec la feuille traitement (f4)
With f4
    .Activate
    ActiveWindow.FreezePanes = False
    With .Rows("1")
        .EntireRow.AutoFit
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
    .AutoFilterMode = False
    dl = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    dc = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column

    Set r = .Range(.Cells(2, 1), .Cells(dl, dc))
        r.Copy: .Cells(2, 1).PasteSpecial , Paste:=xlPasteValues: Application.CutCopyMode = False
            Set dD = CreateObject("Scripting.Dictionary"): Set dM = CreateObject("Scripting.Dictionary"): Set dP = CreateObject("Scripting.Dictionary")
                For Each c In r
                    If Left(c.Value, 1) = "/" Or c.Value = 0 Then
                        c.ClearContents
                            ElseIf IsDate(c) Then dD(c.Column) = ""
                                ElseIf InStr(1, c.Text, "€") > 0 Then dM(c.Column) = ""
                                    ElseIf Right(c.Text, 1) = "%" Then dM(c.Column) = "": c.Value = c.Value * 100
                    End If
                Next c
            
        For Each k In dD.Keys
            .Range(.Cells(2, k), .Cells(dl, k)).NumberFormat = "@"
            For Each c In .Range(.Cells(2, k), .Cells(dl, k))
                If c.Value <> "" Then c.Value = Format(c.Value, "yyyy-mm-dd")
            Next c
            .Range(.Cells(2, k), .Cells(dl, k)).NumberFormat = "General"
        Next k
            
        For Each k In dM.Keys: .Range(.Cells(2, k), .Cells(dl, k)).Style = "Comma": Next k
End With

'- On réactive les application
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

For Each k In dM.Keys: .Range(.Cells(2, k), .Cells(dl, k)).NumberFormat = "0.00": Next k

For Each k In dD.Keys
            For Each c In .Range(.Cells(2, k), .Cells(dl, k))
                If c.Value <> "" And Not IsDate(c.Value) Then c.ClearContents
            Next c
            .Range(.Cells(2, k), .Cells(dl, k)).NumberFormat = "@"
            For Each c In .Range(.Cells(2, k), .Cells(dl, k))
                If c.Value <> "" Then c.Value = Format(c.Value, "yyyy-mm-dd")
            Next c
            .Range(.Cells(2, k), .Cells(dl, k)).NumberFormat = "General"
        Next k