Salut
essaye a nouveau et n’oublie pas d activer les macro , c’est du VBA:
Sub test()
Dim Cqs, bse, m As Integer, drlgn
Set Cqs = Sheets("Ce que je souhaite")
Set bse = Sheets("Base")
drlgn = bse.Cells(Rows.Count, "A").End(xlUp).Row
Cqs.Range("A2:A" & 1999).ClearContents 'Cqs.Range("A2:A" & drlgn).ClearContents
For i = 2 To drlgn
n = Application.CountIf(bse.Range("A2:A" & drlgn), bse.Cells(i, "A"))
If n <= 2 Then
m = m + 1
Cqs.Cells(m + 1, 1) = bse.Cells(i, "A").Value
End If
Next
End Sub