Xldown sur filtre sans resultat

Bonjour à tous,

je ne sais pas écrire de macro mais j'utilise la fonction 'enregistrer une macro" pour en faire. Ce qui me limite pas mal...

Je voudrais qu'il me filtre des données à partir d'une couleur et qu'il colle les données dans une autre feuille. Cela marche bien sauf sur un onglet pour lequel il n'y a pas de résultat au niveau du filtre.

Du coup il copie toute la colonne jusqu'à la fin de la page et me met un message d'erreur "erreur d'execution 1004" -> les zones copier coller sont de taille différente.

Le problème est de sélectionner ce que je dois copier avec "Range(Selection, Selection.End(xlDown)).Select". Lorsqu'il y a des données cela ne pose pas de problème mais lorsqu'il n'y en a pas il sélectionne la colonne entière. Ce que je ne comprends pas c'est que ça marche sur un autre onglet...

Ma macro:

Sheets("TABLE + ACC Bureau").Select
ActiveSheet.Range("$A$3:$R$59").AutoFilter Field:=1, Criteria1:=RGB(68, _
114, 196), Operator:=xlFilterCellColor
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("OV_A_REP").Select
Range("G2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Merci par avance!

Bonjour,

Lorsque vous postez un code, merci d'utiliser les balises de code en cliquant sur l'icone </> et en collant votre code dans la fenêtre

Sans fichier essayez le code comme ceci peut être ?

With Sheets("TABLE + ACC Bureau")
    For i = 3 To .Range("A" & Rows.Count).End(xlUp).Row
        If .Range("A" & i).Interior.Color = RGB(68, 114, 196) Then
            dlg = Sheets("OV_A_REP").Range("G" & Rows.Count).End(xlUp).Row + 1 
            Sheets("OV_A_REP").Range("G" & dlg) = .Range("A" & i)
        End If
    Next i
End With

Si ok -->

Cordialement

ça marche! Merci beaucoup!

Je prends note pour poster un code :)

Bonne journée