Re: >>> Date <<<
Ecris simplement cette petite procédure :
Sub ChangerFormatDate()
For Each cell In Selection
cell.Value = DateSerial(Left(cell.Value, 4), Mid(cell.Value, 5, 2), Right(cell.Value, 2))
Next
End Sub
For each cell in selection veut dire que le format date sera changé pour toute cellule sélectionnée.
BerNar