Sub SupprimeTexte()
Dim lig As Long
Dim tablo, i As Long, t
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lig = Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("A").Range("D2:AY" & lig).Select
tablo = Range("D2:AY" & lig)
For i = 1 To UBound(tablo)
t = tablo(i, 1)
If Not IsNumeric(tablo(i, 1)) Then tablo(i, 1) = 0
Next i
Range("D2:AY" & lig) = tablo
End With
End Sub