bug dans le filtre de la macro

Sub Score()
'***************************************************
' Déclaration des variables important

Dim der_sh1, dr_sh2 As Long
Dim Nom, statut As String
'***************************************************
'***************************************************
Application.ScreenUpdating = False
'pour gagner en rapidité (Application.ScreenUpdating=false ,suppression de  .select,
'utilisation d'une variable devant la boucle For I pour ne pas utiliser de la memoire a chaque changement du n

der_sh1 = Sheets(1).UsedRange.Rows.Count
With Sheets("Feuil2")
Nom = "AL"
statut = "Va"
 der_sh2 = .Range("a65536").End(xlUp).Row
 For n = 1 To der_sh2
If Left((.Range("d" & n).Text), 2) = Nom Then
   If Left((.Range("e" & n).Text), 2) = statut Then
  Set c = Sheets("feuil1").Rows(1).Find(.Range("b" & n), LookIn:=xlValues, lookat:=xlWhole)
   If Not c Is Nothing Then
   c.Offset(der_sh1, 0) = .Range("c" & n)
   c.Offset(der_sh1, 4) = .Range("d" & n) & "-" & .Range("e" & n)
End If
End If
End If
der_sh1 = Sheets(1).UsedRange.Rows.Count  'pour prendre en compte toute les colonnes
Next n
End With

Application.ScreenUpdating = True
'pour rafraichir la page (Application.ScreenUpdating = true)
End Sub