Sub Macro1()
Dim i As Integer
Application.ScreenUpdating = False
For i = 40 To 1 Step [B][COLOR=red]-1[/COLOR][/B]
If UCase([COLOR=red][B]Cells(4, i).[/B][COLOR=black]Value[/COLOR][/COLOR]) Like "REFERENCE*" Or UCase([COLOR=red][B]Cells(4, i).[/B][/COLOR]Value) Like "FABRICANT*" Then [COLOR=red][B]Columns[/B][/COLOR](i).Delete
Next i
For i = 2000 To 1 Step -1
If UCase(Range("A" & i).Value) Like "TOTAL*" Or UCase(Range("D" & i).Value) Like "TOTAL*" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub