'---vérification des doublons---
Set d = CreateObject("Scripting.Dictionary")
Set P = F.[B2].CurrentRegion 'à adapter
For i = 2 To P.Rows.Count
For j = 4 To 6
x = LCase(P(i, j) & P(i, 7) & P(1, j))
If d.exists(x) Then MsgBox "Doublon sur '" & P(i, j) & "' pour le N° " & d(x) & " et le N° " & P(i, 1) & " !", 48: Exit Sub
d(x) = P(i, 1) 'mémorise le N°
Next j, i