ISOLER DES CELLULES GRISES

Bonjour
Jai une macro qui a partir de l'année d'une date saisi me colorie en rouge toutes les cellules dans lesquelles cette année apparait
je souhaiterais isoler dans une autre feuille toutes les cellules en rouge
merci :)

voici le code de ma macro et le fichier correspondant

Sub date_2()
Dim X As Variant
Dim Cel As Range
X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
If X = False Then Exit Sub
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
If Not Cel Is Nothing Then
 PA = Cel.Address
 Do
 Cel.Interior.ColorIndex = 3
 Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
 Loop While Not Cel Is Nothing And Cel.Address <> PA
End If
End Sub

MERCIII DE VOTRE AIDE