Excel VBA remplacer un caractere à une position precise

Bonjour, je voudrais connaître la forme en VBA pour remplacer la 4eme caractère de ma chaine

Exemple: AFA125BQ et je voudrais le transformer en AFAj25BQ

J'ai essayé avec

celj = remplacer(Cel, 4, 1, "j") oucelj = Replace(Mid(Cel, 4, 1) = "j", 1, 1)

Mais ça marche pas ...

Merci pour votre aide @+

Bonjour

A tester

Sub test()
Dim Msg As String

  Msg = "AFA125BQ"
  MsgBox Msg
  Mid(Msg, 4, 1) = "j"
  MsgBox Msg
End Sub

Bonsoir Bonzai,

Impeccable bien ça marche.

Malgré tous mes essais quand tout est dans le bon sens et bien déclaré c'est mieux (pb de déclaration en range au lieu de string)

Bonne soirée.