[color=#0000FF]Sub [/color]Supprimer_RTF2()
[color=#008000]' Supprimer @[/color]
Cells.Find(What:='@', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
:=False, Comma:=False, Space:=False, Other:=True, OtherChar:='@', _
FieldInfo:=Array(Array(1, 9), Array(2, 2))
[color=#0000FF]End Sub[/color]