Excel VBA Formula avec ISOWEEKNUM

Bonjour,

Je n'arrive pas à écrire une formule USOWEEKNUM avec une variable...

C'est sûrement hyper simple.. voir code ci-dessous.

Sub ZTestSemaineIsoVBA()
'
' ZTestSemaineIsoVBA Macro
'

Dim wb As Workbook: Set wb = ActiveWorkbook

Set Data = wb.Sheets(1)

NoSemaine = Data.Range("A6").value 'Ici il y a une date

'

Data.Range("A2").Formula = "=ISOWEEKNUM(" & NoSemaine & ")"

End Sub

Voici mon erreur :

D'avance merci.

Bonjour,

'Ici il y a une date

C'est toi qui le dit.
Sans fichier on n'est pas sensé te croire...

Au delà de ça, quel est l'intérêt de mettre une formule qui retournera toujours la même chose vu que tu y mets la date en dur ?
Et appeler NoSemaine une variable destinée à recevoir une date ne devrait pas se faire pour la clarté du code.
eric