Salut BigBen,
voici un fichier de 100.000 lignes! Démarrage macro : clic en [A1]... vroooom!
'
Dim tTab
Dim iRow As Long, iCol%
'
Application.ScreenUpdating = False
'
If Target.Address = [A1].Address Then
iRow = UsedRange.Rows.Count
iCol = UsedRange.Columns.Count
tTab = Range("A1").Resize(iRow, iCol)
'
For x = 1 To UBound(tTab, 1)
If UCase(tTab(x, 1)) Like "MOYEN*" Then tTab(x, 1) = ""
Next
Range("A1").Resize(iRow, iCol) = tTab
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
'
Application.ScreenUpdating = True
'
A+