Macro pour remplacer caractères

[COLOR="DarkSlateGray"][B]Private Sub Test_Click()
   toto
End Sub

Private Sub toto()
Dim oCel As Range, oSpl As Variant
   For Each oCel In Range("DATA")
      If oCel.Value Like "<pos x=""*"" y=""*""/>" Then
         oSpl = Split(oCel.Value, """")
         oCel.Offset(0, 1).Value = "<pos x=""" & oSpl(1) + 423 & """ y=""" & oSpl(3) & """/>"
      Else
         oCel.Offset(0, 1).Value = oCel.Value
      End If
   Next oCel
End Sub[/B][/COLOR]

[COLOR="DarkSlateGray"][B]oCel.Value Like "<pos x=""*"" y=""*""/>"[/B][/COLOR]

[COLOR="DarkSlateGray"][B]Split(oCel.Value, """")[/B][/COLOR]

[B][COLOR="DarkSlateGray"]oSpl(0) = "<pos x="
oSpl(1) = "n'importe_quoi_1"
oSpl(2) = " y="
oSpl(3) = "n'importe_quoi_2"
oSpl(4) = "/>"[/COLOR][/B]