Aide pour modifier petit code copie/colle

Bonjour,

Après plusieurs essais je ne trouve pas la solution, pourtant ça ne doit pas être très compliqué

Grâce au code ci-dessous, je filtre une colonne sur "=1" puis sélectionne et copie les cellules visibles. Mais le problème c'est que la macro plante si il n'y a pas de "1" dans la colonne ( donc de cellules visibles ). Comment faire svp ?

 Sub Scan1()   

Sheets("Donnees").Select
    lig_fin = Cells(Cells.Rows.Count, "A").End(xlUp).Row

    Sheets("Donnees").Range("$A$1:$AD$1010").AutoFilter Field:=24, Criteria1:="=1", _
        Operator:=xlAnd

    Sheets("Donnees").Range("Y2:Y" & lig_fin).SpecialCells(xlVisible).Copy

    Sheets("Bilan").Select
    Range("A1").End(xlDown).Offset(1, 0).Select

    ActiveSheet.Paste
    Application.CutCopyMode = False

End sub

Bonjour

A tester

Sub Scan1()

  With Sheets("Donnees")
    If .FilterMode = True Then .ShowAllData
    lig_fin = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("$A$1:$AD$1010").AutoFilter Field:=24, Criteria1:="=1"
    ' Voir l'aide de SOUS.TOTAL dans Excel
     If Application.Subtotal(103, .Columns("A")) > 1 Then
      .Range("Y2:Y" & lig_fin).SpecialCells(xlVisible).Copy _
                  Sheets("Bilan").Range("A1").End(xlDown).Offset(1, 0)
    End If
  End With
End Sub

Merci, ça fonctionne parfaitement !