[A:A].Replace "-", ".", xlPart 'plage à adapter
Sub SupprimeTiret()
'
Dim I As Long
Dim Envers As String, Chaine As String, Tempo As String
Chaine = Range("A1")
Envers = StrReverse(Chaine)
I = InStr(Envers, "-")
Tempo = Left(Chaine, Len(Chaine) - I) & "." & Right(Chaine, I - 1)
Range("A1") = Tempo
End Sub
Sub SupprimeTiret()
'
Dim Chaine As String, Tempo As String
Chaine = Range("A1")
Tempo = StrReverse(Replace(StrReverse(Chaine), "-", ".", 1, 1))
Range("A1") = Tempo
End Sub
Dim I As Long
Dim Envers As String, Chaine As String, Tempo As String
Chaine = Target.Offset(0, 0)
Envers = StrReverse(Chaine)
I = InStr(Envers, "-")
Tempo = Left(Chaine, Len(Chaine) - I) & "." & Right(Chaine, I - 1)
Target.Offset(0, 0) = Tempo
C'est bien pour ça que j'avais séparé la partie "affectation" de la partie "modification", pour te laisser adapter le code à ton besoin.@ Marcel: j'ai modifié comme ceci et c'est OK.