Copier automatiquement des valeurs différentes de 0 dans une feuille

Private Sub CommandButton1_Click() 'bouton "Copier"
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

ActiveCell.Select 'enlève le focus au bouton
Application.ScreenUpdating = False 'masque les changements à l'écran
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    'boucle sur toutes les cellules éditées cel de la colonne B
    For Each cel In .Range("B1:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row)
        If cel.Value <> 0 Then 'condition : si la cellule est différente de zéro
            'définit la cellule de destination (première cellule vide de la plage A8:I16
            Set dest = Sheets("Feuil2").Range("A8:I16").SpecialCells(xlCellTypeBlanks).Cells(1)
            cel.Copy 'copie la cellule cel
            dest.PasteSpecial (xlPasteValues) 'colle sa valeur dans dest
        End If 'fin de la condition
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil1"
Application.ScreenUpdating = True 'affiche les changements à l'écran
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
End Sub