Bonjour à tous,

Ci_dessous, un problème qui me laisse sec et pour lequel, au delà d'obtenir une solution fonctionnelle, j'aimerais comprendre la cause sur le fond

Le code ci-dessous tourne sans pb à plusieurs itérations (il est utilisé dans une boucle) mais quelque fois il plante sur la ligne en rouge avec l'erreur
"Past Method of Worsheet class failed" 
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sheets("Data").Select  
      Rows("1:1").Select
      Selection.AutoFilter
 
‘ la valeur de la variable “Last_Line” a été déterminée au préalable
 
    ActiveSheet.Range("$A$1:$AP$" & Last_Line).AutoFilter Field:=30, Criteria1:="<>"
    ActiveCell.SpecialCells(xlLastCell).Select
    Range("AP" & Last_Line).Select
 
    Range(Selection, Cells(1)).Select
    Selection.Copy
    Sheets("Resultats").Select
    Range("A1").Select
    ActiveSheet.Paste    
Sheets("Data").Select

Je n'ai pas réussi à identifier des situations communes aux différents cas où ce code plante, bref, je suis sec!

Quelqu'un peut il m'aider à comprendre ce pb?

Merci