bonjour tous le monde en reprenant le code de charly qui pour moi est le plus prometteur l utilisation d un tableau intermediere ya pas plus rapide moins d une seconde sur 50000 lignes ...donc en bidouillant un peu sur excel 2003 j arrive a un resultat est ce que l espace a la fin gene !!! pour d autres calcul essayer de le supprimer !!! Sub charly()
Dim Tableau
Dim i&, l&
Dim Plage As Range
Set Plage = Range('k2', Range('k65536').End(xlUp))
Tableau = Plage
For i = 1 To UBound(Tableau)
Tableau(i, 1) = (Tableau(i, 1)) & ' '
Next i
Plage = Tableau
Tableau = Plage
For l = 1 To UBound(Tableau)
Tableau(l, 1) = Replace(Tableau(l, 1), '.', '/')
Next l
Plage = Tableau
Erase Tableau
End Sub
'salutations