Extraction d'une ligne répondant à un critére

Sub Bouton1_QuandClic()
Dim c As Range
Dim derligne As Integer

With Sheets('Feuil2')
    .Range('a5:c100').ClearContents
   
    For Each c In Range('u2:u' & Range('u65536').End(xlUp).Row)
        If c = 'Actif' Then
            derligne = .Range('a65536').End(xlUp).Row + 1
            .Cells(derligne, 1) = Cells(c.Row, 2)
            .Cells(derligne, 2) = Cells(c.Row, 3)
            .Cells(derligne, 3) = Cells(c.Row, 4)
        End If
    Next c
   
End With
           
End Sub

Cliquez pour agrandir...