Changer des valeurs cellule dans une colonne

Bonjour , je suis Novice en VBA et je souhaite créer une Macro pour modifié certains code dans une Colonne

Alors j'en suis au début

... Columns("B:B").Select

mais aprés je sais pas comment faire car je doit modifié

Quand le code G4R2 est dans la colonne B il faut le changer en G4R3

puis G4F1 en G4R3

G4Z3 en G4Z1

G4G3 en G4G1

G4U3 en G4U1

G4L3 en G4L1

Si quelqun à des idées je le remercie d'avance Ps:Il faut le faire pour des milliers de Ligne

Bonsoir,

Alors j'en suis au début

... Columns("B:B").Select

Ça tu peux t'en passer ! C'est de trop !

Pour le reste, il conviendrait que tu indiques la totalité des modifications que tu dois apporter (et le cas échéant fournir un fichier modèle qui permettra de te faire des propositions directement utilisables dans ton contexte de travail.

Cordialement.

Alors voici un exemple

il faut que je créer un Bouton qui transforme le code dans la Colonne B déja présent par le code qui est a gauche , juste en dessous

Code à Transformer

G4R2 devient => G4R3

G4F1 devient =>G4Z1

G4Z3 devient G4Z1

G4G3 devient G4G1

G4U3 devient G4U1

G4L3 devient G4L1

Deux anciens codes deviennent G4Z1. Ce n'est pas une erreur ?

Non ce n est pas une erreur

Ok ! Donc :

Sub MajCode()
    Dim d As Object, n%, i%, k
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "G4R2", "G4R3"
    d.Add "G4F1", "G4Z1"
    d.Add "G4Z3", "G4Z1"
    d.Add "G4G3", "G4G1"
    d.Add "G4U3", "G4U1"
    d.Add "G4L3", "G4L1"
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .Range("B" & .Rows.Count).End(xlUp).Row
        For i = 1 To n
            k = .Cells(i, 2)
            If d.exists(k) Then .Cells(i, 2) = d(k)
        Next i
    End With
End Sub

Cordialement.

Merci Beaucoup , Infiniment , je ne sais plus quoi dire

c'est exactement cela , je vais devoir vraiment m'entrainer sur les variables pour avoir un jour ton niveau