Utilisation de la méthode Find

[xavier]

Bonjour,

voici mon code

Range("D,E:E,G:G,J:J,K:K,M:M").Select
With Selection
Set trouve = .Find(" ", LookIn:=xlValues, searchorder:=xlByRows)
If Not trouve Is Nothing Then
firstAddress = trouve.Address
Do
trouve.Select
Selection.NumberFormat = "#,##0"
Set trouve = .FindNext(after:=ActiveCell)
If Not trouve Is Nothing Then
sndAddress = trouve.Address
End If
Loop While Not trouve Is Nothing And sndAddress <> firstAddress
End If
End With

Est-ce qu'il est possible avec la méthode Find de paramètrer plusieurs choses à trouver (0,1,2,3,4,5,6,7,8 ou 9) ce qui me permettrer de détecter les cellules où il y a des chiffres.

merci
Xavier