Filtre ligne par mot de passe selon user

Private Sub B_ok_Click()
 Set f = Sheets("baseDonnée")
 If Me.motpasse <> "" Then
  For i = 1 To Range("password").Count
    If UCase(Me.motpasse) = UCase(Range("password")(i)) Then
      f.Visible = True
      Application.ScreenUpdating = False
      f.[N1] = "Identifiant"
      f.[N2] = Range("identifiant")(i)
      f.Range("A1:D10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        f.Range("N1:N2")
      Exit For
    End If
  Next i
  End If
  Unload Me
End Sub

Sub auto_open()
 Set f = Sheets("baseDonnée")
  For i = 1 To Range("nom").Count
    If UCase(Environ("username")) = UCase(Range("nom")(i)) Then
      f.Visible = True
      Application.ScreenUpdating = False
      f.[N1] = "Identifiant"
      f.[N2] = Range("identifiant")(i)
      f.Range("A1:D10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        f.Range("N1:N2")
      Exit For
    End If
  Next i
End Sub