Bonjour
essaies comme ceci
Sub OUVRIRFICHIER1()
Dim chemin As String
Dim REF As String
Dim total_heure As Integer
Dim heure As Integer
Dim trouve As Range
Dim P(7) As String
Dim i As Integer
Dim t As Integer
For i = 2 To 14 step 2
fichier=cells(2, i).value
chemin = "C:\Transfer\essai-bilan\" & fichier & ".xls"
worbooks.Open (chemin)
For t = 1 To 3
With ActiveWorkbook.Sheets(t).Range("B10:H20")
REF = UserForm1.Label9.Caption
Set trouve = .Find(REF)
If Not trouve Is Nothing Then
trouve.Offset(0, 6).Value = heure
total_heure = total_heure + heure
End If
End With
Next t
Next i
Pascal