Bonjour

Dans mon fichier il y a dans une colonne A des dates et dans une colonne B les information correspondantes

Alors je vous explique mon problème, j'ai une macro qui selon l'année de la date que je saisi me retrouve dans ma colonne A (de ma feuille 1) toutes les dates concerner par cette année et me colorie les cellules en rouge
en plus de sa elle prend les dates concerner et me les met a part dans une feuille 2
le problème c'est quelle ne prend et n'isole que la colonne A et non la colonne B qui correspond aux informations

merci de votre aide !
voici le code de la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub date_4()
    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
    Worksheets("feuil2").Cells.ClearContents    'efface cellules feuille
    Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
    If Not Cel Is Nothing Then
        PA = Cel.Address
        lig = 1     'ligne de depart pour feuil2
        Do
                    Cel.Interior.ColorIndex = 3
            Worksheets("feuil2").Cells(lig, 1) = Cel.Value      'ecriture
            lig = lig + 1       '+1 pour donnee suivante
            Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
        Loop While Not Cel Is Nothing And Cel.Address <> PA
    End If
End Sub