XL 2010 probleme code entre 2010 et 2013

[MASSJIPE]

Bonjour
J'ai un soucis Excel 2010 et 2013
(Cette feuille de calcul contient des lignes ou des colonne masquées que le destinataire pour rendre visibles souhaitez vous continuer)
Voici le 1 code pour moi RAS

Sub EQA()
 EQA Macro
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("K2").Select
    Sheets("BDD").Select
    ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=6, Criteria1:= _
        "1"
    Sheets("tableau de bord").Select
     Range("L6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    Range("F7").Select 
End Sub

2 code
lorsque l'envoie par mail j'ai le message suivant (Cette feuille de calcul contient des lignes ou des colonne masquées que le destinataire pour rendre visibles souhaitez vous continuer) sur 2010 j'ai bien la plage sélectionnée mais sous 2013 j'ai toute la plage de A1 à A 189 avec des lignes vides entre deux
je joint le fichier le problème est sur la feuille BDD

Sub envoi_mail()
Dim PlageTo As Range, PlageCc As Range, Cel As Range, ToutTo$, ToutCc$
Dim plage As Range, derLig As Integer
Sheets("BDD").Select
On Error Resume Next
derLig = Cells(2000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:F" & derLig
On Error GoTo 0
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With Sheets("LISTE")
Set PlageTo = .Range("A1:A" & .[A65536].End(2).Row)
Set PlageCc = .Range("A1:A" & .[A65536].End(2).Row)
End With
For Each Cel In PlageTo
If Cel(, 2) = "A" Then ToutTo = ToutTo & ";" & Cel(, 1)
Next
If ToutTo <> "" Then ToutTo = Right(ToutTo, Len(ToutTo) - 1) Else MsgBox "Pas de destinataires": Exit Sub

For Each Cel In PlageCc
If Cel(, 2) = "C" Then ToutCc = ToutCc & ";" & Cel(, 1)
Next
If ToutCc <> "" Then ToutCc = Right(ToutCc, Len(ToutCc) - 1)
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = ToutTo
.Item.CC = ToutCc
.Item.Subject = Range("A1").Value
.Item.display
End With
End Sub

D'avance merci