XL pour MAC Supprimer lignes si cellules contiennent 99

Sub SupLigne99()
  Dim MaCol As Long, MaCel As Range
  Dim DerLig As Long, NumLig As Long
  ' Avec la feuille
  With ActiveSheet
    ' Chercher la bonne colonne
    Set MaCel = .Rows("1:1").Find(What:="Hors Cat.", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False)
    If MaCel Is Nothing Then
      MsgBox "La cellule contenant [Hors Cat.] n'a pa pu être trouvé !", vbCritical, "OUPS..."
      Exit Sub
    End If
    ' Sinon
    MaCol = MaCel.Column
    ' Dernière ligne remplie de la feuille
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne
    For NumLig = DerLig To 2 Step -1
      ' Si la colonne Hros Cat. contient 99
      If .Cells(NumLig, MaCol).Value = 99 Then
        ' On supprime la ligne
        .Cells(NumLig, MaCol).EntireRow.Delete Shift:=xlUp
      End If
    Next NumLig
  End With
End Sub