Option Explicit
Sub Date_extraire()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
If IsNumeric(Left(c, 4)) Then c = Left(c, 10)
Next
Application.ScreenUpdating = True
End Sub
Option Explicit
Sub Date_extraire()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
If IsNumeric(Left(c, 4)) Then c = Left(c, 10)
Next
Application.ScreenUpdating = True
End Sub
je ne comprends pas, dans ton premier message,il est noté: "J'ai un excel avec une colonne qui contient 2000 lignes....."
Peux tu mettre un extrait de ce fichier pour nous éclairer?