Macro pour Doublons

Bonsoir,

J'ai un soucis, j'ai esseyé de faire un macro qui verifie si il y a des doublons. Si oui, alors cela copie dans une autre feuille et retourne sur la feuille de base et de suite en suite.

Voici mon code, j'ai esséyé le macro ce lance mais rien ne se passe. Aussi je sais qu'il y a des lettres dans les cases mais je ne sais pas si cela empêche le "If Isnumeric" de fonctionner.

Donnez votre avis ou une solution si possible, merci beaucoup d'avance.

Bonne soirée

Sub Egal_ou_non()

    If IsNumeric(Range("A1")) Then
    Dim i As Integer, Numboucle As String, numero_ligne As Integer, DerLig As Integer
    Dim nb_lignes As Integer
      'Valeurs des variables
  numero_ligne = Range("A1") + 1
   Numboucle = Cells(numero_ligne, 1)
   DerLig = Range("I" & Rows.Count).End(xlUp).Row
   nb_lignes = WorksheetFunction.CountA(Range("A:A"))
   End If
   For i = 2 To DerLig_A
   If Range("A" & i + 1) = Range("A" & i) Then

   Worksheets("Feuil2").Range("i").Copy _
    Destination:=Worksheets("Feuil3").Range("A1")
   Sheets("Feuil2").Select
   ActiveCell.Select
   Selection.Copy
   Sheets("Feuil3").Select
   Range("A1").Select
   ActiveSheet.Paste
   Sheets("Feuil2").Select
'J'aimerai faire en sorte que le Nb de ligne apparaissent en B2'    
nb_lignes = Range("B2")
Exit Sub
    End If
Next i

End Sub

bonsoir,

voici une macro sur base de ce que j'ai compris,

copier les doublons de feuil2 en feuil3

Sub aargh()
    With Sheets("feuil2")
        dl = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set r = .Range("A1:A" & dl)
        For i = 1 To dl
            If Application.CountIf(r, .Cells(i, 1)) > 1 Then
                j = j + 1
                Sheets("feuil3").Cells(j, 1) = .Cells(i, 1)
            End If
        Next i
    End With
End Sub

Bonjour,

Un autre exemple à étudier.

Cdlt.

Bonsoir,

C'est exactement ce que je voulais,

Aussi qu'est ce que je dois modifier dans le code pour déplacer le destination des doublons sur la deuxième feuille ?

Et si possible un macro séparé ou intégré qui met sur une autre colonne les chiffres et seulement les chiffres qui sont en doublon dans la colonne A et transféré vers feuille 2 sur colonne c.

Merci encore pour votre aide