Chercher numéro en double

suggestion:

Sub doublons()
Const cofacFS = 2  ' numero de colonne de la facture dans la feuille destination
Dim dico As Scripting.Dictionary, fl As Worksheet, cl As Range, v As String
'Dim li As Long, co As Long, st As String, s As String, doub As Range, fl As Worksheet
Set dico = New Scripting.Dictionary
For Each fl In ThisWorkbook.Worksheets
    If fl.[A6] = "Date" Then
        Set cl = fl.Cells(8, cofacFS)
        Do While cl <> ""
            v = Trim(cl)
            If dico.Exists(v) Then
                MsgBox "doublon, feuille " + fl.Name + ", ligne " + CStr(cl.Row) + " et " + dico.Item(v)
            Else
                Call dico.Add(v, fl.Name + "|" + CStr(cl.Row))
            End If
            Set cl = cl.Offset(1)
        Loop
    End If
Next fl
End Sub

ah oui, il faut ajouter "microsoft scripting runtime" dans les références du projet, via le menu "outils" de l'éditeur de code.

il faut ajouter "microsoft scripting runtime" dans les références du projet, via le menu "outils" de l'éditeur de code.