merci de ta réponse donc j'ai remplacer et j'ai rajouté une tabulation mais excel me mets une erreur saurait tu me dire pourquoi
cordialement Bwaki
Sub adaptationdesdonnées()
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
If feuil.Name <> "feuille 1" Then
feuil.Cells.Replace What:=".", Replacement:=","
feuil.Cells.Replace What:="+", Replacement:=""
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
End If
Next feuil
End Sub