Urgent MACRO POSSIBLE?

Sub Analysis()
Dim Plage As Range, Cell As Range

    With Sheets('Feuil1')
    Set Plage = .Range(.Range('A2'), .Range('A65536').End(xlUp))
   
        For Each Cell In Plage
            If Cell.Offset(0, 1) = 1 Then
                .Range('D500').End(xlUp).Offset(1, 0) = Cell
            End If
       
            If Cell.Offset(0, 4) = 1 Then
                .Range('E500').End(xlUp).Offset(1, 0) = Cell
            End If
        Next
    End With
End Sub

Cliquez pour agrandir...

Sub Analysis()
'Déclaration des Variable Objects de Type Range
Dim Plage As Range, Cell As Range

    With Sheets('Feuil1')
    'Définition de la plage dynamiquenent (colonne 'A' =Indicateurs
    Set Plage = .Range(.Range('A2'), .Range('A65536').End(xlUp))
   
   
        'Boucle pour scanner chaque cellule de cette plage
        For Each Cell In Plage
       
            'Condition 1 'Si la colonne 'B' contient un '1'
            '('B' = 'A' décalé (Offset) de 0 ligne 1 Colonne
            If Cell.Offset(0, 1) = 1 Then
               
                'Si la condition est remplie, on reporte la Cellule
                'vers Dernière ligne Vide de D
                .Range('D500').End(xlUp).Offset(1, 0) = Cell
            End If
           
            'Condition 2 'Si la colonne 'E' contient un '1' et idem que précédemment
            If Cell.Offset(0, 4) = 1 Then
                .Range('E500').End(xlUp).Offset(1, 0) = Cell
            End If
        Next
    End With
End Sub

Cliquez pour agrandir...