EXTRACTION de données d'une cellule

 Columns("G:G").Select
    Selection.Replace What:="*COMMUNICATION: ", Replacement:="COMMUNICATION : ", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" DATE VALEUR*", Replacement:="", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="ACCOMPAG NANT", Replacement:="ACCOMPAGNANT", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False