Public T()
Sub recherche()
Dim Feuil As Worksheet, cherche As Variant, VT As Variant, i2 As Integer
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
ListeNomFeuilles ' Construit un array avec la liste des noms des feuilles
For i2 = ListBox1.ListCount - 1 To 0 Step -1
cherche = ListBox1.List(i2, 1)
VT = Controls("Textbox" & i2 + 1).Value
ChercheNom cherche, VT
Next i2
Application.Calculation = xlCalculationAutomatic
Calculate
End Sub
Sub ListeNomFeuilles() ' Fait la liste des noms des feuilles dans l'array nommé T
N = -1
For Each F In Worksheets
N = N + 1
ReDim Preserve T(N)
T(N) = F.Name
Next F
End Sub
Sub ChercheNom(cherche, Valeur) ' Cherche un nom de feuille qui contient "cherche" et range VT en G3
For i = 0 To UBound(T)
If T(i) Like cherche Then Sheets(T(i)).[G3] = Valeur
Next i
End Sub