Sub TransformeDate()
'
Dim Tableau
Dim i&, Ligne&
Dim Plage As Range
'
Ligne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Set Plage = Range('K2:K' & Ligne)
Tableau = Plage
For i = 1 To UBound(Tableau)
Tableau(i, 1) = Replace(Tableau(i, 1), '.', '/')
Next i
Plage = Tableau
Erase Tableau
End Sub