Macro option compare text erreur

Bonjour ,

Dans mon fichier Excel, j'ai créé une macro me permettant de copier coller en valeur les lignes ayant une date de clôture , puis de regarder sur la colonne Vérif pour ne pas recoller et ainsi éviter les doublons sur l'onglet archive.

Cependant le code s'exécute mais ne me copie rien dans mon onglet archive .

Option Compare Text
Sub Archive_Enregitre_Defiltre()

Dim DlgA As Integer, DlgS As Integer
Dim Cel As Range

Application.ScreenUpdating = False

DlgS = Sheets("SUIVI").Range("J" & Rows.Count).End(xlUp).Row

For Each Cel In Sheets("SUIVI").Range("J4:L" & DlgS)
    If Cel.Value <> "" Then
        With Sheets("ARCHIVE")
            On Error Resume Next
            DlgA = .Range("A" & Rows.Count).End(xlUp).Row
            LigA = .Range("M2:H" & DlgA).Find(Sheets("SUIVI").Range("M" & Cel.Row), LookIn:=xlValues, lookat:=xlWhole).Row
            If Err.Number > 0 Then
                Sheets("SUIVI").Range("A" & Cel.Row & ":M" & Cel.Row).Copy
                .Range("A" & DlgA + 1).PasteSpecial Paste:=xlPasteValues
                .Range("K" & DlgA + 1 & ":L" & DlgA + 1).NumberFormat = "dd/mm/yyyy"
            End If
        End With

    End If
    LigA = 0
Next Cel
Application.CutCopyMode = False
Application.ScreenUpdating = True

ActiveWorkbook.Save
'permet de sauvegarder

 Range("C11").Select
    ActiveSheet.ShowAllData
'permet de defiltrer

End Sub

Je continue mes recherches et découpe mon code pour rechercher l'erreur , mais si vous aviez une idée , je suis preneuse :)

Merci d'avance pour votre aide

Cordialement

RE , je viens de trouver ^^

Option Compare Text
Sub Archive_Enregitre_Defiltre()

Dim DlgA As Integer, DlgS As Integer
Dim Cel As Range

Application.ScreenUpdating = False

DlgS = Sheets("SUIVI").Range("J" & Rows.Count).End(xlUp).Row

For Each Cel In Sheets("SUIVI").Range("J4:J" & DlgS)
    If Cel.Value <> "" Then
        With Sheets("ARCHIVE")
            On Error Resume Next
            DlgA = .Range("A" & Rows.Count).End(xlUp).Row
            LigA = .Range("M2:M" & DlgA).Find(Sheets("SUIVI").Range("M" & Cel.Row), LookIn:=xlValues, lookat:=xlWhole).Row
            If Err.Number > 0 Then
                Sheets("SUIVI").Range("A" & Cel.Row & ":M" & Cel.Row).Copy
                .Range("A" & DlgA + 1).PasteSpecial Paste:=xlPasteValues
                .Range("K" & DlgA + 1 & ":L" & DlgA + 1).NumberFormat = "dd/mm/yyyy"
            End If
        End With

    End If
    LigA = 0
Next Cel
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

j'ai modifiée les colonnes et mis une date de clôture.

Bonne journée