Sub Supprimer()
Dim t#, f$, n&
t = Timer
Application.ScreenUpdating = False
With Sheets("GEST").ListObjects(1).DataBodyRange
f = .Cells(1, 65).Formula 'mémorise la formule
.Columns(65) = .Columns(65).Value 'supprime les formules
.Sort .Columns(65), Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
With .Columns(65).SpecialCells(xlCellTypeConstants).EntireRow
n = .Rows.Count
.Delete 'supprime les textes
End With
.Cells(1, 65) = f 'restitue les formules
End With
Application.ScreenUpdating = True
MsgBox "Suppression de " & n & " lignes en " & Format(Timer - t, "0.00 \s") 'facultatif, pour tester
End Sub