Pour info, car j'ai oublié de le signaler : "Menu" = le nom de la feuille Mdi.

Pour t'éviter de retapper à chaque fois ton code :
------------------------------------------------------

Ds le form_load de chaque form MdiChild : Centrage Me

Sub Centrage(Feuille As Form)
        Feuille.Left = (Menu.Width / 2) - (Feuille.Width / 2)
        Feuille.Top = (Menu.ScaleHeight / 2) - (Feuille.Height / 2)
End Sub

Y'a bcp + simple. Utilises la fonction "Format" de vb!!

Function TrouverNuméroSemaine(ByVal Dte As Date) As Integer
          TrouverNuméroSemaine = Format(Dte, "ww", vbSaturday, vbFirstFullWeek)
          If TrouverNuméroSemaine > 52 Then
                    If Format(Dte + 7, "ww", vbMonday, vbFirstFullWeek) = 2 Then
                              TrouverNuméroSemaine = 1
                    End If
          End If
End Function

Tu oublies de gérer le bug de la fonction Format. Car ds certain cas, celle-ci renvoie 53 au lieu de 52.

Function TrouverNuméroSemaine(ByVal Dte As Date) As Integer
          TrouverNuméroSemaine = Format(Dte, "ww", vbSaturday, vbFirstFullWeek)
          If TrouverNuméroSemaine > 52 Then
                    If Format(Dte + 7, "ww", vbMonday, vbFirstFullWeek) = 2 Then
                              TrouverNuméroSemaine = 1
                    End If
          End If
End Function