Option Explicit
Sub Zéro_zéro_en_c()
' exécution du code accélérer
Application.ScreenUpdating = False
' onglet "Feuil2" : supprimer les valeurs des colonnes a-l pourquoi a-1?
Sheets("Feuil2").Range("a:l").Clear
' filtre automatique sur la colonne c (3), valeurs différentes de zéro pour filtrer sur la colone c=3 si j ai bien compris
ActiveSheet.Range("a:l").AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
' cellules visibles copier vers onglet "Feuil2", en a1
Columns("a:l").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Copy Sheets("Feuil2").Range("a1")
' filtre supprimer
Cells.AutoFilter
' onglet "Feuil2" activer
Sheets("Feuil2").Select
' colonnes ajuster
Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub