Mettre en forme (gras) les nombres d'une cellule

Bonjour,

je fais appel à vos lumières pour mettre en forme les nombres qui apparaisent dans les celulles contenant aussi bien des lettres que des chiffres. Ces valeurs n'ont pas de structure particulière.

Actuellement je n'ai rien trouvé sur le forum permettant de m'aider

Exemple

passer de ca :

fox 25KL tige 520L/Jacques mat.25

... à ca :

fox 25KL tige 520L/Jacques mat.25

Si vous avez une idée n'hésitez pas !!

Merci pour votre aide.

Bonjour,

Essaie comme cela

Private Sub MettreEnGras_Click()
    With ActiveSheet.Range("A1")
        For i = 1 To Len(.Value)
            If IsNumeric(.Characters(i, 1).Text) Then _
            .Characters(i, 1).Font.Bold = True
        Next i
    End With
End Sub

A+

Merci FRANGY pour ta rapidité ça marche super !