Bonsoir,
Est-ce que les données à enlever sont toujours avec ce fond de couleur ??
Si c'est le cas, tu n'as qu'à utiliser la procédure ci-dessous :
Sub epurer()
With Sheets("FEUILLE BRUTE")
DerLig% = .[A65536].End(xlUp).Row
For Lig% = DerLig To 1 Step -1
If .Cells(Lig, 1).Interior.ColorIndex = 36 Then .Rows(Lig).Delete
Next Lig
End With
End Sub
Bonne soirée
Rai