Nouvel onglet sur critere cellule

Bonjour

Comment sortir sur un nouvel onglet , les données correspondant à un critère sur une cellule, j'ai réussi avec un texte, mais je souhaite faire la même chose avec la couleur de la cellule (couleur issu d'une autre macro avec mfc)

FEUIL1 avec colonne de AàAL

Colonne C avec cellule en couleur suivant mfc

Voici le code que j'ai qui fonctionne suivant le critère ATELIER

Je souhaiterais donc que ce soit la couleur de la celulle (col C) qui soit pris en compte et que la macro crée automatiquement la nouvelle feuille avec un nom (ex TTTT)

[Sub ATELIER()

'copie des lignes "ATELIER" dans la feuille atelier

Application.ScreenUpdating = False

With Sheets("FEUILLE ATELIER").Range("AL3:AL" & Range("A65536").End(xlUp).Row).Clear: End With

With Sheets("Feuil1")

.Activate

.Range("a1").AutoFilter Field:=3, Criteria1:="*ATELIERr*"

.Range(.[A3], .[A3].SpecialCells(xlLastCell)).Copy Destination:=Sheets("ATELIER").[A3]

.Range("A1").AutoFilter

End With

Application.ScreenUpdating = True

End Sub

Essayé pas mal de chose mais je coince,

Merci

Bonjour,

à tester,

Sub Atelier()
Dim sh1, sh2
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("atelier")
sh2.Range("A3:AL" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents

With sh1.Range("A2:AL2")
    If Not sh1.FilterMode Then
      .AutoFilter
    End If
    .AutoFilter Field:=3, Criteria1:="=Atelier"
    .Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy sh2.Range("A3")
    .AutoFilter
End With

Set sh1 = Nothing
Set sh2 = Nothing
End Sub