bonjour je souhaite rajouter ceci :
mais cela ne fontionne pas sur ceciCode:Selection.PasteSpecial Paste:=xlPasteValues
es que vous pouvez m'aider" je souhaite pas copier les formules"Code:
1
2
3
4
5
6
7
8
9 For Each c In Range("plagevaleur") If c.Text = "inférieur" Then Sheets("Bilan").Rows(c.Row).Copy ' Sheets("inférieur").Activate Sheets("inférieur").Range("A" & CStr(Sheets("inférieur").UsedRange.Row + Sheets("inférieur").UsedRange.Rows.Count)).Select Sheets("inférieur").Paste End If Next