Sub Extraction()
'Nettoyage de la feuille 2
Sheets("Feuil2").Range("A2:E65536").ClearContents
'Initialisiion de la première ligne vide pour la feuille 2
Lig = 2
'Dernière ligne de la base de données
DerLig = [A65536].End(xlUp).Row
'Boucle de laligne 2 à la dernière ligne
For L = 2 To DerLig
'Si la valeur en colonne E esi inférieure à zéro
If Cells(L, 5) < 0 Then
'Copie la ligne dans la feuille 2
Cells(L, 5).EntireRow.Copy Destination:=Sheets("Feuil2").Cells(Lig, 1)
'Nouvelle première ligne vide
Lig = Lig + 1
End If
'Fin de la boucle
Next L
End Sub