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