Macro

Sub InsererCARACTERE()

With Sheets("AZRT").Range("A2:A" & Sheets("AZRT").Cells(Rows.Count, 2).End(xlUp).Row)
  .FormulaR1C1 = "=IF(RC[1]=""BR"",""x"","""")"
  .Value = .Value
End With


End Sub

    For Each c In Range([B2], [B10000].End(xlUp))
        If UCase(c) = "BR" Then
            c.Offset(0, -1).Value = 0
        End If
    Next c

'Dans la plage qui part de A2 à A?? ou ?? correspond à la dernière cellule non vide de la colonne B
With Sheets("AZRT").Range("A2:A" & Sheets("AZRT").Cells(Rows.Count, 2).End(xlUp).Row)

  'Y Mettre la formule relative =SI(LC1="BR";"x";"") : LC1 = la cellule située même Ligne, Colonne +1 (donc colonne B)
  .FormulaR1C1 = "=IF(RC[1]=""BR"",""x"","""")" 

  'On ne garde que les valeurs (donc, les x restent), pas les formules
  .Value = .Value

'Fin de bloc
End With