Macro de rapatriement de données sur critères

Private Sub CommandButton1_Click()
 
End Sub

Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus du bouton
With Sheets("Données") 'prend en compte l'onglet "Données"
    For Each cel In .Range("C2:C" & .Range("C65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne C (en partant de C2)
        On Error Resume Next 'gestion des erreurs (si une erreur se produit, passe à la ligne suivante. Permet d'accepter "#N/A", "#DIV/0!", etc...)
        'condition : si la valeur de la cellule (en majuscule) n'est pas égale à "Satisfaisant" (permet d'accepter toutes les casses...)
        If Not UCase(cel.Value) = "SATISFAISANT" Then
            Set dest = Sheets("Result").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination
            .Range(.Cells(cel.Row, 1), .Cells(cel.Row, 2)).Copy dest 'copie et colle les données correspondantes
        End If 'fin de la condition
    Next cel 'prochaine cellule cel de la boucle
End With 'fin de la prise en compte de l'onglet "Données

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus du bouton
With Sheets("Données") 'prend en compte l'onglet "Données"
    For Each cel In .Range("C2:C" & .Range("C65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne C (en partant de C2)
        On Error Resume Next 'gestion des erreurs (si une erreur se produit, passe à la ligne suivante. Permet d'accepter "#N/A", "#DIV/0!", etc...)
        'condition : si la valeur de la cellule (en majuscule) n'est pas égale à "Satisfaisant" (permet d'accepter toutes les casses...)
        If Not UCase(cel.Value) = "SATISFAISANT" Then
            Set dest = Sheets("Result").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination
            .Range(.Cells(cel.Row, 1), .Cells(cel.Row, 2)).Copy dest 'copie et colle les données correspondantes
        End If 'fin de la condition
    Next cel 'prochaine cellule cel de la boucle
End With 'fin de la prise en compte de l'onglet "Données
End Sub