Coller en valleur VBA

Bonjour à tous,

j'ai rédigé une ligne de code qui marche plutôt ^pas mal , mais j aimerai qu'elle colle en valeur , j aimerai savoir ce que je dois modifier dans la formule ci-dessous merci

Sheets("EAMPRV").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Immo amorties").Range("A5")

Bonjour,

Essaye comme cela peut être :

Sheets("EAMPRV").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Worksheets("Immo amorties").Range("A5").PasteSpecial xlPasteValues

A plus !

Braters a écrit :

Bonjour,

Essaye comme cela peut être :

Sheets("EAMPRV").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Worksheets("Immo amorties").Range("A5").PasteSpecial xlPasteValues

A plus !

Merci Braters ca passe comme sur du beurre