Bonjour a tous, j'ai un énorme problème qui me dépasse

En gros j'ai ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
         For tableau = 61 To 90 Step 1
 
                valeur_tableau = Sheets(Page_1).Range("A" & tableau).Value
                MsgBox "." & str_diametre_2 & "." & valeur_tableau & "."
                If str_diametre_2 > valeur_tableau Then
 
                Else
                    MsgBox str_diametre_2 & " n'est pas supérieure à : " & valeur_tableau
                    str_diametre_2 = valeur_tableau
                    Exit For
                End If
Ma variable str_diametre_2 = 1600
Ma variable valeur_tableau change, passe de 100 à 150 à 200,250...

mais le programme au dessus me dit que 1600 n'est pas supérieure à 200
alors que 160 oui et 170 non, je sais pas ce qu'il fait, il dois oublier un "0" ou je sais pas quoi mais c'est très embarrassant, vous avez une idée ?

Merci