Remplacer Valeur par une autre

Sub trisheet3()
Dim br As String 'déclare la variable br (Boite de Recherche)
Dim r As Range 'déclare la variable r (Recherche)
 
With Sheets("Sheet3") 'prend en compte l'onglet "Sheet3"
    .Select 'sélectionne l'onglet
    'définit la boite de recherche br
    br = Application.InputBox("Tapez la valeur que vous recherchez.", "Recherche !", Type:=2)
    If br = "" Then Exit Sub 'si br né st pas renseiggnée, sort de la procédure
    'définit la recherche r (recherche br dans la colonne L de l'onglet "Sheet3")
    Set r = .Range("L1:L" & .Range("A65536").End(xlUp).Row).Find(br, , xlValues, xlWhole)
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
        r.Copy Destination:=Sheets("Sheet5").Range("A" & r.Row) 'copy et colle
        r.Offset(0, -11).Copy Destination:=Sheets("Sheet5").Range("B" & r.Row) 'copie et colle
    End If 'fin de la condition
End With 'fin de la prise en compte de l'onglet "Sheet3"
Sheets("Sheet5").Select 'sélectionne l'onglet "Sheet5"
Application.Run "trisheet4"
End Sub