reprise:
Ident = Trim(Application.InputBox("Entrez la reference de l'identifant :", "Reference Identifiant", Type:=1))
If PlgRecherche.Find(Ident) Is Nothing Or Ident = False Or IsError(Ident) Then
MsgBox "Valeur incorrecte ou non trouvée dans la plage de Recherche", vbExclamation
GoTo reprise
Else
Ligne = PlgRecherche.Find(Ident).Row