Base de données partagées

Bonjour les amis comment allez vous ?

Je viens vers vous car j'ai un soucis je vous explique :

J'ai crée un fichier qui me permet de gérer la validité des documents de mes prestataires, ce document est composé de deux parties :

- La base de données, qui est comme son nom l'indique une base de donnée dont les informations seront entrer grace a un userform ( que j'ai pu réussir grace a vous ), celui ci s'active en faisait CLTR+K

- Et d'un onglet recherche qui grâce a une macro qui effectue une recherchev permet de renvoyer les informations que l'on souhaite si on effectue la recherche soit par entreprise soit par prestataire soit par projet

Mon plus gros soucis vient du faite que mon outil sera un document partager par plusieurs utilisateur ce qui me crée 3 cas de figures que je n'arrive pas a trouver de solution :

• Plusieurs entreprises travaillent avec le meme prestataire
• Un prestataire travaille sur plusieurs projets
• Sachant qu'un prestataire travaille avec plusieurs entreprises, les contacts ne seront pas les mêmes.

Mon gros soucis est de savoir comment géré mes doublons d'une part et comment faire ma recherchev quand un prestataire travaille sur plusieurs projets.

Pour palier à ce problème j'ai mit une macro qui permet de d'effacé les doublons qui apparaissent dans l'apparition de résultat mais ça règle pas mon problème

je ne sais pas quoi faire les amis aidez moi s'il vous plait

Sub SupprimeDoublons()
Dim Lg&, Lg2&, i&, Plg As Range
        Application.ScreenUpdating = False
    Lg = Range("i" & Rows.Count).End(xlUp).Row      'dernière ligne avant vérif
   Lg2 = Range("a" & Rows.Count).End(xlUp).Row     'dernière ligne ajoutée
   Set Plg = Range(Cells(4, "b"), Cells(Lg, "b"))  'plage avant ajout

    '--- contrôle et supprime doublons (lignes ajoutées) ---
   For i = Lg2 To Lg + 1 Step -1
        If Application.CountIf(Plg, Cells(i, "b")) > 0 Then Rows(i).Delete
    Next i
End Sub