tu ajoutes un petit module (dans ton code ce sera module3) dans lequel tu écris ce bout de code
Sub maligne()
Dim equipement, lignedevie As String
With Sheets("Données Maintenance")
equipement = Equipements.ListeEquipements.Value
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & i) = equipement Then lignedevie = .Range("H" & i)
lignedevie = .Range("H" & i)
Next i
End With
End Sub
en l'appelant à partir de "Call maligne" que tu auras placé à la fin de la procédure "Private Sub FicheDeVie_Click()" tu obtiendras la valeur de ta ligne de vie que utlisera afin d'ouvrir la feuille recherchée comme je te l'ai expliqué précedemment