extraction des éléments constitutifs d'une liste

Quelque chose dans ce genre convient ?

For Each cel In Range("A2:A300")
If cel.Value = Empty Then
Exit For
Else
Range("A1").Select
Selection.AutoFilter field:=1, Criteria1:=cel.Value
x = cel.Row
For Each cel2 In Range("A2:A3000")
If cel2.Value = Empty Then
Exit For
ElseIf cel2.Row = x Then
'Rien
ElseIf cel2.EntireRow.Hidden = False Then
cel2.EntireRow.Delete
End If
Next
End If
Next

Bonjour,

Avec formules

Ha : Monique,

Mille mercis, pour cette formule, comme je suis encore traumatisé par VBA je m'accroche aux formules comme un désespéré.

je l'applique avec bonheur avec les formules BD(;;😉 et c'est splendide

merci forum