Option Explicit
Dim ws As Worksheet, l As Long, c As Long, d As Long, f As Long
Public Sub SupprimeCel() 'meldja
Application.ScreenUpdating = False
Worksheets("new 1").Activate
d = 47 'AU
For l = 4 To 19 'lignes
If Range("AV" & l) Like "*" & 24073 & "*" Or Range("AV" & l) Like "*" & 24074 & "*" Then
For c = 47 To 189 'colonnes
If Cells(l, c).Interior.ColorIndex = xlNone Then
Cells(l, c) = ""
End If
Next c
End If
Next l
For l = 4 To 19
f = Cells(l, 16384).End(xlToLeft).Column
For c = f To d Step -1
If Cells(l, c) = "" Then
Cells(l, c).Delete shift:=xlToLeft
End If
Next c
Next l
Application.ScreenUpdating = True
End Sub