bonjour je souhaite rajouter ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.PasteSpecial Paste:=xlPasteValues
mais cela ne fontionne pas sur ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
es que vous pouvez m'aider" je souhaite pas copier les formules"