VBA

Sub test_semaine()
    Dim x As Date
    x = "11 / 1 / 2021"
    xx = num_sem(x)
End Sub

Function num_sem(D As Date) As Long
'Auteur: Laurent Longre. X-Cell
'La fonction suivante renvoie le numéro de semaine conforme à la norme ISO,
'utilisée dans les pays européens (la première semaine d'un mois étant définie
'comme la première semaine comportant au moins quatre jours dans le mois).

D = Int(D)
num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = ((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1
End Function

Function SemaineISO(ByVal d As Date) As Integer
  d = Int(d) - (Int(d) + 5) Mod 7
  SemaineISO = (9 + d - DateSerial(Year(3 + d), 1, 0)) \ 7
End Function