Macro + filtre +copier

Bonjour Forum,

Dans la Macro suivante:

Sub test2()
Dim Lg%, Cel As Range
    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

j'ai enfin découvert que le UCase(Cel) ne considère que les mots en majuscule. Au lieu de: "APPELER", je voudrais plutôt filtrer avec le mot: "Veille". Que dois-je faire?

Emil

Salut le forum

Remplace la ligne

If UCase(Cel) = "APPELER" Then

par

If Cel = "Veille" Then

Mytå

Bien pigé.

Merci

Émil

Bonjour,

Je vous remercie infiniment pour votre macro , cependant je rencontre un problème que je n'arrive pas à résoudre. Les cellules filtrées sont collées les une sur les autres du coup dans la nouvelle feuille je ne trouve qu'un seul enregistrement qui est le dernier .

Merci d'avance