XL 2010 MFC via VBA - Erreur d'exécution '5' parfois

Sub MiseEnForme()
  Dim LigD As Long, DLig As Long, ShtD As Worksheet
  For Each ShtD In ThisWorkbook.Sheets
    ' Activer la feuille
    ShtD.Activate
    ' Dernière ligne du tableau
    DLig = ShtD.Range("F" & Rows.Count).End(xlUp).Row
    ShtD.Range("A3").Select
    ' Modifier la mise en forme conditionnelle des lignes
    With ShtD.Range("A3:N" & DLig)
      .FormatConditions.Delete
' Ca BLOQUE déjà ICI
      .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(ESTNUM($N3);$N3=0)"
      With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 35
      End With
      .FormatConditions(1).StopIfTrue = True
      .FormatConditions.Add Type:=xlExpression, Formula1:="=$AD3<>0"
      '.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
      With .FormatConditions(2).Interior
        .PatternColorIndex = xlAutomatic
        .ColorIndex = 15
      End With
      .FormatConditions(2).StopIfTrue = True
    End With
    ' Filtrer les lignes
    ShtD.Range("$A$2:$N$" & DLig).AutoFilter Field:=14, Criteria1:="<>0"
  Next ShtD
End Sub