Supprimer mot dans ligne en VBA

Sub SupprimeLigne1()
    
    'Adresse 1 Adresse 2 Téléphone 00 00 00 00 00 Ville
    Dim Ligne As String, Position As Integer
    Dim Limite As Long, Boucle As Long
    
    Limite = Range("A1:A65535").End(xlDown).Row
    For Boucle = 1 To Limite
        Ligne = Cells(Boucle, 1).Value
        Position = InStr(1, Ligne, "Téléphone", vbTextCompare)
        If (Position > 0) Then
            Cells(Boucle, 1).Value = Mid(Ligne, 1, Position - 1)
        End If
    Next Boucle
    
End Sub
'