Option Explicit
Sub purger()
Dim tablo() As Variant
Dim tabloFinal() As Variant
Dim TailleF As Long
Dim i, j, k As Long
TailleF = 0
With Sheets("Feuil1")
tablo = .UsedRange.Value
For i = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(i, 1) Like "*" & "slddrw" & "*" Then
For j = LBound(tablo, 2) To UBound(tablo, 2)
tablo(i, j) = ""
Next j
Else
TailleF = TailleF + 1
End If
Next i
.UsedRange.Offset(1, 0).Clear
ReDim tabloFinal(1 To TailleF, 1 To UBound(tablo, 2))
k = 1
For i = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(i, 1) <> "" Then
For j = LBound(tablo, 2) To UBound(tablo, 2)
tabloFinal(k, j) = tablo(i, j)
Next j
k = k + 1
End If
Next i
.Range("A2").Resize(UBound(tabloFinal, 1), UBound(tabloFinal, 2)) = tabloFinal
End With
End Sub