Supprimer des lignes avec une condition

J'ai une question à propos de la suppression des lignes:

j'aimerais parcourir la colonne A (des numéros de matricule)

si on trouve des doublons et si la valeur de ce doublon sur la colonne N (rémunération) est à 0 on supprime la ligne

Merci pour votre aide

Voilà un un exemple de fichier en pièce jointe:

Bonjour,

Un test

bonjour,

Sub Teste()
     Set c = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)     'plage des données, colonne A = matricule
     Set c2 = Range("N1").Resize(c.Rows.Count)     'colonne N = rénumeration

     With Range("Q1").Resize(c.Rows.Count)     'colonne auxiliaire
          .Formula = "=--AND(N1=0,COUNTIFS(" & c.Address & ",a1," & c2.Address & ",""<>0"")<>0)"     'formule : rénumeration = 0 et dans une autre ligne même matricule avec rénumeration <> 0
          .Cells(1) = "Teste"     'entête
          .AutoFilter
          .AutoFilter 1, 1     'toutes les lignes qui correspondent
          .Offset(1).SpecialCells(xlVisible).EntireRow.Delete     'delete ces lignes
          .AutoFilter
     End With

End Sub

Bonjour,

Merci pour votre aide vous êtes au toop.

J'ai une autre question:

Maintenant je cherche à copier les données sans doublons pour les coller dans un autre classeur de synthèse, feuille(temps de travail) sans l'entête

avec une condition: ne pas copier coller les 2 lignes avant la dernière ligne dans ce cas c'est la ligne 43 et 44.

Merci

Le fichier en pièce jointe

Bonsoir à tous !

Une proposition via Power Query ?

Mettre à jour le chemin du fichier de base et lancer l'actualisation pour récupérer, dans votre classeur synthèse, les informations désirées.

Bonjour à tous !

Je passe la main aux spécialistes puisque visiblement hors VBA point de salut.

Remarque : En faisant évoluer votre besoin au fil des messages, vous ne facilitez pas la tâche des contributeurs......