Arrêter le copier coller si la plage filtrée n'a pas de données (excel VBA)

Bonjour,

Je travaille Excel 2013,

J'ai besoin du filtre automatique "#N/A" dans la colonne "F", si filtrer le "#N/A" aucune donnée avec l'en-tête, "Goto 0 :" le code fait...

mais, mon code ne fonctionne pas, goto 0:

Sous-testss()
'Insérer un filtre et #N/A Copier et Coller
'VBA - Désactiver le filtre automatique à partir du code
Si ActiveSheet.AutoFilterMode Alors
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Activer le filtre automatique
Si fin

'Filtre automatique des cellules vides de la 2e colonne
Atténuer LastRow aussi longtemps
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next 'if filter then no data go next
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Cellules non applicables filtrer puis sélectionner les cellules visibles
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select

'Arrête le copier-coller si la plage filtrée n'a pas de données
Si Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Alors
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faire quelque chose de code.........
Application.CutCopyMode = Faux
autre
ActiveSheet.AutoFilterMode=Faux
Aller à 0 :
Si fin

'Faire quelque chose de code.........

0:
End Sub


Merci de m'aider merci d'avance
  Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip   Arrêtez le copier-coller si la plage filtrée n'a pas de data.zip