Sub Supprime()
tablo = Range("A1").CurrentRegion
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo, 2)
If IsNumeric(tablo(i, j)) Or tablo(i, j) Like "*:*" Then
tablo(i, j) = ""
End If
Next j
Next i
Range(Cells(1, 1), Cells(UBound(tablo), UBound(tablo, 2))).Resize(UBound(tablo)) = tablo
End Sub