VBA Remplacer X par Y ou Y par X

Bonjour,

Dans ma cellule A1 j'ai un phrase dans une cellule qui fini la plus part du temps par S1 ou S2.

J'aurais aimé que si c'est le cas, que S1 se transforme en S2 et inversément.

Est-ce possible en VBA ?

J'ai trouvé un début de solution, mais là le problème c'est que si j'ajoute un mot avec S1 ou S2 dans la même case, il ne me remplace plus mon S1 en S2 ou inversément... :

Sub rechercher_remplacer()

  Dim Plg As Range, cel As Range
  Application.ScreenUpdating = False

  Set Plg = Range("A1")

  For Each cel In Plg
    If Not IsEmpty(cel) Then
      Select Case cel
        Case "S1": cel = "S2"
        Case "S2": cel = "S1"
      End Select
    End If
  Next cel

  Application.ScreenUpdating = True

End Sub

Bonjour

Un essai à tester. Te convient-il ?

Bye !

C'est parfait, merci !