Modifier ma macro qui élimine les doublons dans une colonne

[INFINITY100]

Bonjour à tous

Voila ci-dessous j'ai une macro qui répond à mon besoin ou presque en effet cette macro élimine les valeurs en doublons dans la colonne E mais ce que j'aimerai avoir c'est la modifier de sorte qu'elle ne prend pas en considération les lignes masquées et aussi lorsqu'il y a rien dans la colonne E je voudrais afficher 0 à la place de 1

La Macro :

Sub La_Formule()
Dim Unique As New Collection

On Error Resume Next
  For Each Cel In Range("E1:E" & [E100000].End(xlUp).Row)
  Unique.Add Cel.Value, CStr(Cel.Value)
  Next Cel
  On Error GoTo 0
  [A1] = Unique.Count
End Sub

Je joins le fichier pour être plus claire

Merci à vous tous

Cordialement

 

[herve62]

Bonsoir
Pas évident de comprendre :
-lignes masquées .. ou ?
-rien dans la colonne E ... ça se passe comment , montre nous ?
sinon faut bien se mettre en tête que excel VBA c'est du code concret et donc gérer des lignes masquées ..euh ? ça c'est de la "Déco" lui Y sait pas !!! , on peut lui dire de masquer mais après pour reconnaitre ???
dite si je me trompe
Conseil met inscrit en manuel le résultat que tu escomptes selon les données de départ !!

 

[KIM]

Bonjour Nicole, Bonjour Hervé,
Bonjour le fil, bonjour le forum,
Dans les macros proposées et après avoir compté le nombre d'éléments sans doublons, que faut-il rajouter pour lister dans la col G par ex la liste sans doublons ?
Merci d'avance
KIM

 

[INFINITY100]

Merci à vous tous

Toutes les macros proposées me me conviennent toutes

Merci encore