Probleme Macro copier ligne dans un autre page avec conditio

Bonjour

Je suis en train de me monter un tableau dont je compare les diférentes feuilles. Dans la feuille comparaison, je veux copier les lignes dont il est afficher APPELER. Cela fonctionne en partie puisqu'il copie la ligne correspondante, mais dans la ligne certaine case sont relié à l'aide de fonction. Et lorsque la macro exécute ma commande, il copie la formule au lieu du résultat de la commande. Est-ce possible de copier le résultat?

Quelqu'un peu m'aider?

Merci

Bonsoir,

Sub test2()
Dim Lg%, Cel As Range
'Macro Claude le 19/08/2010
    With Sheets("COMPARAISON")
        Lg = .Range("h65536").End(xlUp).Row
        For Each Cel In .Range("H4:H" & Lg)
            If UCase(Cel) = "APPELER" Then
                .Range("A" & Cel.Row & ":L" & Cel.Row).Copy

                With Sheets("LISTE")
                    .Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
                End With
                    Application.CutCopyMode = False
            End If
        Next
    End With
End Sub

Amicalement

Claude

Merci

Cela fonctionne a MERVEILLE!!!!!!!

re,

Encore + simple et + rapide avec un filtre élaboré

ajouter en-têtes

Sub filtre()
Dim Lg%
    With Sheets("COMPARAISON")
        Lg = .Range("h65536").End(xlUp).Row
        .Range("a3:k" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        .Range("o1:o2"), CopyToRange:=Range("LISTE!a1:k1"), Unique:=False
    End With
End Sub

Claude