Excel VBA - Problème formatage valeur numérique dans cellule

Bonjour à tous!

me voilà de retour pour sollicter votre aide sur un pbroblème que je n'arrive pas à résoudre.

Je souhaite modifier automatiquement l'affichage des valeurs numériques contenues dans plusieurs tableaux, en fonction du critère auquel se rapporte ces données (le critère varie en fonction du tableau).


Voici le code (en version simplifié) que j'ai rédigé en m'inspirant de ce que j'ai pu trouver sur les forums, et du code obtenu en enregistrant une macro pendant lors du formatage manuel du tableau.
....
Set data = Sheets("tableau").Range("A6")
Sheets("tableau").Range("A8:J13").select

Select Case data
Case data = "Bleu"
Selection.NumberFormat = "#,##0.0%"
Case data = "blanc" Or data = "rouge"
Selection.NumberFormat = "#,##0.0"
Case Else
Selection.NumberFormat = "#,##0"
End Select

Le code fonctionne, mais le résultat n'est pas celui escompté.
En effet, seul la dernièere instruction case est exécuté correctement.
Dans le premier cas de figure, au lieu de convertir 0,355554777 en 35.6 % je me retrouve avec 0.
Dans les cas suivants, au lieu de convertir 25,2566794646 en 25,2, mon tableau affiche 25.

Il semblerait qu'il y ait une erreur de lecture sur les formats que j'ai renseignés. Or j'ai simplement repris les codes de formats obtenus en faisant un enregistrement de macro, lors du formatage manuel des données.


Quelequ'un peut-il m'aider à trouver ce qui cloche dans mes instruction?


merci d'avance,

Kayna