Bonjour,

Je cherche à adapter du code afin que les lignes qui sont colorées en rouge soient importées vers ma feuille2.

Voici le code:

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
21
22
23
24
25
Sub derniere_date_mois()
 
Dim LastLig As Long, i As Long
 
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig
 
DerLig = 2
 
    If Year(Range("A" & i + 1).Value) = Year(Range("A" & i).Value) Then
        If Month(Range("A" & i + 1).Value) > Month(Range("A" & i).Value) Then
            Rows(i).Interior.ColorIndex = 3
            Rows(i).Copy Sheets("Sheet2").Rows(DerLig)
        DerLig = DerLig + 1
 
        End If
    Else
        Rows(i).Interior.ColorIndex = 3
        Rows(i).Copy Sheets("Sheet2").Rows(DerLig)
        DerLig = DerLig + 1
    End If
Next i
 
 
End Sub

Le code pour importer les ligne en rouge vers la feuille2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Rows(i).Copy Sheets("Sheet2").Rows(DerLig)
n'est pas au point car je n'obtiens que la dernière ligne en rouge ce qui signifie qu'elles sont toutes écrasées successivement par la suivante...

Comment faire pour que les lignes en rouges soient écrites les unes sous les autres dans ma feuille2?