XL 2016 format dates et heures

Sub TraiterDates()

    Dim c As Range, Plg As Range
    
    If TypeOf Selection Is Range Then
        '
        ' Réduire la taille de sélection en cas de sélection de colonne entière
        Set Plg = Intersect(Selection.Parent.UsedRange, Selection)
        For Each c In Plg
            ' IsDate reconnaîtra un texte contenant une date anglo-saxone
            If IsDate(c) Then c.Value2 = CDate(c)
        Next c
        Plg.NumberFormat = "dd/mm/yyyy hh:mm"
    Else
        MsgBox "Opération annulée : Sélectionnez des plage de cellules à traiter.", vbExclamation, "Traitement dates"
    End If
    
End Sub