Effacer un mot

Salut tout le monde

J’ai un petit problème pour écrire une macro.

J’ai besoin de faire effacer un mot qui se répète dans toutes les cellules de la colonne « B ».

Alors les cellules de la colonne « B » porte la mention : Email: ***********.

Comment faire pour effacer le mot « Email: ».

A noter que j’aime bien aussi effacer les deux points « : » et l’espace après, et que les cellules de la colonne « B » ne sont pas tous remplit.

Merci à vous.

Bonjour,

Essaie avec

Sub EffacerEmail()
Dim Texte As String
Dim C As Range
    Texte = "Email: "
    With Worksheets("Feuil1")
        For Each C In .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row)
            If InStr(C, Texte) > 0 Then C = Replace(C, Texte, "")
        Next C
    End With
End Sub

A+

merci ça marche trés bien frangy

a plus