Sub Macro2()
'
Dim TexteEnCours As String
TexteEnCours = ActiveCell.Value
While Left(TexteEnCours, 1) > "9" Or Left(TexteEnCours, 1) < "0"
TexteEnCours = Right(TexteEnCours, Len(TexteEnCours) - 1)
Wend
ActiveCell.Offset(0, 26).Select
ActiveCell.Value = TexteEnCours
' ActiveCell.Copy
' ActiveCell.Offset(0, 26).Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
' On Error Resume Next
' ActiveCell.Replace What:="part", Replacement:="", LookAt:=xlPart, _
' SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
' ReplaceFormat:=False
' On Error Resume Next
' ActiveCell.Replace What:="art", Replacement:="", LookAt:=xlPart, _
' SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
' ReplaceFormat:=False
'
' ActiveCell.Offset(0, 0).Select
' Application.CutCopyMode = False
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(18, 1), Array(22, 1), Array(26, 1), _
Array(30, 1)), TrailingMinusNumbers:=True
ActiveCell.Offset(0, -26).Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(RC[26],""P."","" "",""Avez-vous vendu ?"","" "",""Voici mon n° tel :"",""0111111111"","", "",""Cordlt"")"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 26).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
Selection.ClearContents
ActiveCell.Offset(0, -26).Select
End Sub