Extraire tous les nombres d'une chaine de caractéres

Bonjour à toutes et à tous,

Voici ma question, j'ai besoin d'extraire toutes les valeurs numériques d'une chaine de caractère qui n'a pas le même format à chaque fois. Exemple de chaines:

Agilent ADS 2009 U1 EN

Agilent ADS 45 2011.01 EN

Agilent Genesys 2010.05 EN

Agilent Genesys 2009 2010.05 SP1 EN

Agilent IO Libraries Control Suite 15

Ahead Nero 6.3.1.15_ML

Pour chacune des lignes il ne me faut récuperer que les valeurs numériques comme:

ligne 1 à récuperer = 2009 1

ligne 2 à récuperer = 45 2011.01

Comment faire, j'avoue bloquer!

Merci pour votre aide.

Cordialement

Laurent

Bonjour

Code Module

Sub extraction()
Dim MaCellule As Object
For Each MaCellule In Range("A2", Range("A2").End(xlDown))
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-z,A-Z,_]+"
  chaine = MaCellule.Value
  chaine = obj.Replace(chaine, "")
  MaCellule.Offset(, 1) = chaine
  Next MaCellule
End Sub

Cordialement

Bonsoir,

Merci pour votre réponse, cela fonctionne parfaitement.

Cordialement.

Laurent