Erreur de compilation

Bonsoir à tous

Je n’arrive pas à découvrir l'erreur dans macro Vba

Je souhaite à filtrée et extraire les noms dans le tableau selon les critères indiquer

Voila le Code:

[Private Sub Worksheet_Change(ByVal Target As Range)

      If Not Application.Intersect(Target, Range("c28")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0

        Range("a3:g" & [a2000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("c27:c28"), CopyToRange:=Range("a32:g32"), Unique:=False
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Clients As Object
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$28" Then

    Set Clients = CreateObject("Scripting.Dictionary")
    For Each Cel In Range("B14:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If Cel <> "" And Cel.Offset(, 3).Value = "Non Payé" Then
            Clients(Cel.Value) = Cel.Value
        End If
    Next Cel
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(Clients.Keys, ",")
    End With

End If
End Sub

Je vous remercie d'avance de l'aide que vous pourrez m'apporter!

et Voila un exemple de mon fichier

Amicalement et Cordialement

Il te manque UN if a fermer

Re-Bonsoir,

Je ne connais pas bien le VBA

Mais les deux modules marchent bien dans mon ancienne version de gestion, et j'ai copié texte tous

Pouvez vous me corriger l'erreur dans l'exemple ?

Bonjour

j attend toujours l aide?

Merci d'avance de vos réponses

Cordialement