Probleme de format de cellule

Bonjour,


j'ai un petit problème de format, j'espère que quelqu'un pourra m'aider
et bien voila j'ai mis mon code en dessous.
mon problème est le suivant quand je change ma plage de format avec un Plage.NumberFormat = "#,##0,"" K€"" " le format est bien changer mais on ne voit pas le resultat visuel .
il faut que je double-click à la mano pour voir le bon format
j'ai essayé de faire un select avec affectation de mon format mais rien n'y fait.
Est ce que quelqu'un pourrait m'aider????
dites-moi si j'ai besoin d'expliquer mon code?



Sub get_bil_date()
Dim cpt, Col_data, Col As Integer
For Col_data = 3 To 21
Col = 3
'Boucle sur le tableau des positions des données
For cpt = TAB_data_l(4) To TAB_data_l(4 + 1)
'condition sur le siren
If Siren = Worksheets("data").Cells(cpt, 1) Then
Worksheets(PAGE_fin).Cells(Line_bf_lib, Col) = Worksheets("data").Cells(cpt, Col_data)
'colonne 3: colonne des finex
If Col_data = 3 Then
Set Plage = Worksheets(PAGE_fin).Range(Cells(Line_bf_lib, 2).Address).Resize(1, Col - 2)
MK_encadrement
End If
'colonne voulant un format en KE
If Col_data = 6 Or Col_data = 7 Or Col_data = 9 Or Col_data = 10 Or Col_data = 11 Or Col_data = 12 Or Col_data = 13 Or Col_data = 15 Or Col_data = 16 Or Col_data = 18 Then
Set Plage = Worksheets(PAGE_fin).Range(Cells(Line_bf_lib, Col).Address).Resize(1, 1)
' j'utilise cette syntaxe pour le format K€
Plage.NumberFormat = "#,##0,"" K€"" "
' je fais un select mais aucun changement de format
Plage.Select
End If
Col = Col + 1
End If
Next

Line_bf_lib = Line_bf_lib + 1
Next