Besoin d'aide: code non fonctionnel

Bonjour,

J’essaie d’intégrer ces deux macros ensembles, mais la mise en forme des CC (Sub Format_CC_Fits) ne se fait pas. Par contre, si je les roule séparément, elles fonctionnent. Pouvez-vous me donner un coup de pouce?

Sub Refresh_Fits()
Worksheets(“Data”).ListObjects(“Table_BDPRADA_ADA_Service3”).Refresh ‘raffraichir la table de Fits
End Sub

Sub Format_CC_Fits()
Application.ScreenUpdating = False
Sheets(“Data”).Range(“CCFits”, Worksheets(“Data”).Range(“CCFits”).End(xlDown)).
.NumberFormat = “0” ‘modifier le format des CC
.Value = .Value
Application.ScreenUpdating = True
End Sub

Merci