Erreur exécution macro selon ou je me trouve

Bonjour/Bonsoir a tous,

Je bloque sur la fin de ma macro.

Lorsque je suis sur la page "Accueil" de mon classeur et que mon userform se met en route a l'ouverture ou en cliquant sur le logo, si je choisis "Adjudants", et que je valide, j'ai une erreur.

Mais lorsque je suis sur la page "BD2" et que je lance mon userform par le bouton(ou que j'ai enregistré en étant sur la page et donc affichage auto de mon userform à l'ouverture) et que je choisis Adjudants, la macro s’exécute correctement.

J'ai essayé avec la commande with, mais je ne parviens pas au résultats.

Voici mon fichier.

Merci pour votre aide

Bonsoir

Le code comme ceci :

Sub listadj()
  Dim i As Long, DlWs As Long, DlWd As Long
  Dim Ws As Worksheet, Wd As Worksheet
  Set Ws = Sheets("BD2")
  Set Wd = Sheets("Listing Adjudants")
  DlWs = Ws.Range("A65536").End(xlUp).Row
  DlWd = Wd.Range("A65536").End(xlUp).Row + 1
  For i = 2 To DlWs
    If Ws.Cells(i, 9).Value = "Off. Adjudant" Then
       Ws.Range(Ws.Cells(i, 1), Ws.Cells(i, 8)).Copy Wd.Cells(DlWd, 1)
      DlWd = DlWd + 1
    End If
  Next i
End Sub

Cordialement