En sélectionnant une cellule ou une plage de cellules telles que A2 ou A2:A8, tu peux utiliser
Sub conversion()
On Error Resume Next
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, OtherChar:="*"
End Sub
Cela t'évitera des répétitions fastidieuses.
Bien à toi