Copier Coller dans bloc With

Bonjour,

Je suis planté sur un truc tout bête.

Je tente désespérément de faire un copier/coller au sein d'un bloc d'instruction.

La ligne qui me pose problème est en couleur.

La valeur 'rngtrouve' est OK

Par contre le code ci-dessous fonction lorsque je me positionne sur la feuille PART_Feuil1, mais je voudrai éviter le plus possible les .select et autre .activate

merci d'avance

YDU

'----------------------------'

Set rngtrouve = Sheets("PART_Feuil1").Columns(1).Cells.Find(what:=Empty)

'1.1/ Vendeurs PART

With Sheets("PART_Feuil1")

    .Range("r1").Copy
    .Range(Cells(2, 2), Cells(rngtrouve.Row - 1, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
   
       
'1.1.1/ Mise en forme de la structure des vendeurs
    .Columns(3).Replace what:="G", Replacement:="M"
       
    .Columns(3).Replace what:="S", Replacement:="V"
End With


ydu