Bonjour à toutes et à tous

J'utilise la fonction suivante pour avoir les numéros de semaine que j'applique sur une colonne qui comprend plus de 5000 dates

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Function NoSemaineISO(d As Date) As Integer
    NoSemaineISO = Format(d, "ww", vbMonday, vbFirstFourDays)
End Function
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Sub semISO()
    Dim lig As Long
    For lig = 2 To [A65536].End(xlUp).Row
            Cells(lig, 13) = NoSemaineISO(Cells(lig, 1))
    Next lig
End Sub
Cette macro fonctionne très bien mais le temps de traitement est trop important,
j'ai donc pensé à utiliser les tableaux qui peuvent je pense améliorer la vitesse mais mes connaissances en vba sont limitées

Merci infiniment pour votre aide