Sub Donnees_Convertir()
Selection.Replace What:="(", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.Replace What:=")", Replacement:="/", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns Destination:=Range("B1"), _
DataType:=xlDelimited, _
Other:=True, OtherChar:="/", _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
End Sub