Séparation de données dans une case

Bonjour,

j'ai un problème tout bête, mais embêtant : je dispose d'un tableau (d'ingrédients en l'occurence), qui comporte deux colonnes organisées ainsi:

colonne 1: numéro de l'ingrédient et son om

colonne 2 : dose autorisée

Mon problème est que je souhaiterais séparer le numéro du nom, pour faire une nouvelle colonne.

Par exemple plutôt que d'avoir:

1 extrait de catalpa (dans une seule colonne)

je souhaiterais avoir

1 / extrait de catalpa (en 2 colonnes).

Je pourrai bien sûr supprimer le numéro et le recopier dans une nouvelle colonne,

mais comme j'ai environ 12000 ingrédients, ce serait long et fastidieux!!

Si quelqu'un à une idée d'une petite manip pour faire ça automatiquement,

je le remercie beaucoup!

Flo

Bonjour,

une solution en VBA en pièce jointe.

Sub essai()

Application.ScreenUpdating = False

Dim derLig As Long

derLig = Range("A" & Rows.Count).End(xlUp).Row

For a = 1 To derLig

    c = 1
    Do Until Not IsNumeric(Mid(Cells(a, 1), c, 1))
        c = c + 1
    Loop
    Cells(a, 2) = Left(Cells(a, 1), c - 1)
    Cells(a, 3) = Mid(Cells(a, 1), c + 1)
Next a

Application.ScreenUpdating = True

End Sub

++