XL 2019 changer le format dans une colonne

Option Explicit

Sub ModifierFormatDate()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long
    Dim dateString As String
    Dim formattedDate As Date

    ' Spécifiez la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Dates modif") ' Remplacer par le nom de votre feuille

    ' Trouver la dernière ligne de la colonne A (ajustez la colonne selon vos besoins)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Parcourir chaque cellule dans la colonne A
    For Each cell In ws.Range("A1:B" & lastRow) ' Ajustez le range selon vos besoins
        If IsNumeric(cell.Value) And Len(cell.Value) = 8 Then
            dateString = cell.Value
            ' Convertir en date
            formattedDate = DateSerial(Left(dateString, 4), Mid(dateString, 5, 2), Right(dateString, 2))
            ' Mettre à jour la cellule avec le nouveau format de date
            cell.Value = formattedDate
            cell.NumberFormat = "dd/mm/yyyy" ' Appliquer le format de date
        End If
    Next cell

    MsgBox "Format des dates modifié avec succès !"
End Sub

=DATE(ENT(A1/10000);MOD(ENT(A1/100);100);MOD(A1;100))