Mcro Supprimer fin de phrase dans cellule

Bonjour,

J'aimerais une macro qui supprime tout une fin de phrase dans plusieurs colonne.

En effet j'ai un jeu de donnée, qui va de A1 A BI1 et dans la ligne 1 on a une ligne sur deux la phrase :

"En ce qui concerne le rayon ... du ..., pouvez-vous me dire si vous en êtes satisfait ?"

J'aimerais supprimer pour toutes ces colonnes : "pouvez-vous me dire si vous en êtes satisfait ?"

Cordialement,

Bonjour,

Sub TestRemplace()
 With Range("A1:BI1")
    .Replace What:="pouvez-vous me dire si vous en êtes satisfait", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 End With
End Sub

ou bien, dépendamment ou est situer le retour `la ligne

Sub TestRemplace()
 With Range("A1:BI1")
    .Replace What:=Chr(10) & "pouvez-vous me dire si vous en êtes satisfait", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 End With
End Sub

Super ca fonctionne très bien , et si je veux supprimer un points d'interrogation ?

et si je veux supprimer un points d'interrogation ?

seulement le points d'interrogation ou la phrase avec le "?" ?

Sub TestRemplace()
 With Range("A1:BI1")
    .Replace What:=Chr(10) & "pouvez-vous me dire si vous en êtes satisfait ?", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 End With
End Sub