Extraite chiffre dans cellule alphanumérique

Bonjour,

J'ai besoin d'extraire des chiffre dans une cellule excel contenant du texte. J'ai trouvé sur le net des extraction en vba mais celle ci restitue bien que les chiffres mais ne le restitue pas sous sa forme initiale ( perte de la décimale ) car je pense qu'il prend la , comme un caractère à supprimer.

Ci dessous un exemple des chiffres que je peux avoir

1,67 AAA
1,671 BBA
1,67g CBA
1,67 g ADA
10,670ASA
10,670m ALA
10,57 / AA

Voila l'exemple des chiffres que je pourrai avoir , mon besoin est d'avoir uniquement les chiffres suivants
1,67
1,671
1,67
1,67
10,670
10,670
10,57

Si quelqu'un a une petite astuce , un grand merci d'avance.

Mick27