Créer une macro pour effacer du texte

Sub supprimer_apres_smtp() 
Dim tablo, derlig As Integer 

derlig = Columns("A").Find("*", , , , , xlPrevious).Row 
Application.ScreenUpdating = False 
tablo = Application.Transpose(Range("A2:A" & derlig).Value) 

For cptr = 1 To UBound(tablo) 
     tablo(cptr) = Split(tablo(cptr), "SMTP")(0) 
Next 

Range("A2").Resize(UBound(tablo, 1)) = Application.Transpose(tablo) 
End Sub 

Public Sub nettoieadr()
Dim c As Range
Dim s As String
Dim p As Long
Application.ScreenUpdating = False
For Each c In Selection
  s = c.Value
  p = InStr(1, c, "SMTP")
  If p > 0 Then
    s = Left(s, p - 1)
  End If
  c.Value = s
Next c
Application.ScreenUpdating = True
End Sub