Problème Userform

Bonjour,

J'ai crée un fichier dans lequel chaque ligne correspond à un projet avec différentes informations.

Lorsque l'on double clic sur une ligne l'userform s'ouvre en faisant apparaitre toutes les informations déjà présentes sur cette ligne ou permet d'entrer les informations pour une ligne vierge.

Problème : tout fonctionne parfaitement sur mon PC mais sur les autres PC lorsque je double clic sur une ligne comportant déjà des informations une erreur apparaît avant l'ouverture de l'userform... mais aucune erreur pour une ligne vierge.

Je pense que le problème est liée aux variables...

Je vous joint mon fichier en espérant que quelqu'un est la solution.

Bonjour,

Quelle est l'erreur ?

Tu as peut-être oublier de déclarer des variables.

Dim li As Integer

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
    li = target.Row:
    'Unload Projet
    If Cells(li, 1) = "" Then Projet.Bt1.Caption = "Valider le Nouveau Projet"
    Projet.Show
    target.Offset(0, 1).Select

End Sub