Private Sub bouton_valider_nom_Click()
Dim ligne As String
Dim cell As Range
Dim feuille As Worksheet
Dim nom_fournisseur As String
Dim nom_feuille(20) As String
Dim ligne_finale As Integer
Dim stockage_ligne As Integer
Dim i As Integer
Dim h As Integer
Dim k As Integer
Dim j As Integer
ligne = 9
i = 1
nom_fournisseur = remplissage_nom_fournisseur.Value
Workbooks("memoversionexcel4").Activate
For Each feuille In Worksheets
feuille.Activate
nom_feuille(i) = ActiveSheet.Name
For Each cell In Range("B1:U100")
If cell = nom_fournisseur Then
Worksheets("Recherche").Range("H" & ligne).Value = nom_fournisseur
Worksheets("Recherche").Range("I" & ligne).Value = cell.Offset(0, 1).Value
Worksheets("Recherche").Range("J" & ligne).Value = nom_feuille(i)
Worksheets("Recherche").Hyperlinks.Add Anchor:=Worksheets("Recherche").Range("J" & ligne), Address:="memoversionexcel4.xls", SubAddress:="'nom_feuille(i)'!A1"
ligne = ligne + 1
End If
Next
i = i + 1
Next
If ligne = 9 Then Worksheets("Recherche").Range("H9") = "Aucun résultat. Vérifiez le nom du fournisseur."
Unload Me
End sub