Macro format texte en nombre

bonjour,

je vous explique mon probleme, j'importe par macro des onglets (il n'ont jamais le même nom )

certains contiennent des cellules en format texte alors que ce sont des nombres.

est il possible de faire une macro qui change toutes ces cellules dans tous le classeur en format nombre ?

cordialement

j'ai trouvé une soluce ,peut etre pas la meilleur , mais cela marche

la macro ci dessous supprimera mon problème

colonne M de M3 a M10000

Sub ttest()

Dim Feuille As Worksheet

For Each Feuille In Worksheets 'parcoures toutes les feuilles

If Feuille.Name <> "aaa" And Feuille.Name <> "bbb" And Feuille.Name <> "Feuil1" Then

Feuille.Activate

Call testform

End If

End Sub

Sub testform()

If Range("M3").Value = "" Then Exit Sub

Range("M3:M10000").Select

Application.CutCopyMode = False

Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 1), TrailingMinusNumbers:=True

End Sub