Conversion cellule alphanumérique

Bonjour,

A la suite d'une extraction, je collecte des données en format alphanumérique et je souhaiterais séparer les formats textes des formats numériques. Pourriez-vous m'aider ?

Données Brutes

A1 : Intervenant

A2 : Florent GERMAIN - 1 H. Sylvie DUPONT - 1 H. Xavier DUPOND - 0.15 H.

A3 : Sylvie DUPONT - 1 H. Xavier DUPOND - 1 H.

A4 : Sarah MARTIN - 0.25 H.

A5 : ...

Résultat Souhaité

B1 : Intervenant 1

B2 : Florent GERMAIN

B3 : Sylvie DUPONT

B4 : Sarah MARTIN

B5 : ...

C1 : Tps Passé 1

C2 : 1

C3 : 1

C4 : 0.25

C5 : ...

D1 : Intervenant 2

D2 : Sylvie DUPONT

D3 : Xavier DUPOND

D4 : ""

D5 : ...

E1 : Tps Passé 2

E2 : 1

E3 : 1

E4 : ""

E5 : ...

etc

Merci d'avance

bonjour

pour cela ,il faut joindre un fichier

cordialement

bonsoir,

bonsoir le forum,

avec un fichier c'est mieux

voici une proposition de solution via une macro (à adapter à ton fichier )

Sub aargh()
    With Sheets("sheet1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        t = Application.Transpose(.Range("A2:A" & dl))
        k = 1
        For i = LBound(t) To UBound(t)
            intv = Split(t(i), "H.")
            col = 0
            k = k + 1
            For j = LBound(intv) To UBound(intv)
                    col = col + 2
                    sp = Split(intv(j), " - ")
                    .Cells(k, col) = sp(0)
                    On Error Resume Next
                    .Cells(k, col + 1) = sp(1) + 0
                    On Error GoTo 0
            Next j
        Next i
    End With
End Sub

Merci déjà pour vos réponses !

Je vous joins un fichier. La colonne A contient les données d'extraction. Les autres sont ce que je souhaite afficher.

Cordialement,

Merci H2so4,

Ton code fonctionne quasi parfaitement sauf pour les nombres décimaux. Ils ne sont pas affichés dans les colonnes. Pour le reste

Cordialement,

Bonsoir,

voici la macro adaptée à ton fichier, lancer la macro via alt-F8, je n'ai pas de problème avec les nombres décimaux