Voici le début de ma macro qui effectue la recherche mais juste pour le numero de flux :
Sub recherche()
Dim colNumFlux As Integer
Dim colIdFlux As Integer
Dim numFlux As String
Dim NbSheet As Integer
Dim NbLign As Integer
numFlux = InputBox("Veuillez rentrer le numéro du flux", "numéro du flux")
NbSheet = ActiveWorkbook.Sheets.Count
For j = 1 To NbSheet
ActiveWorkbook.Sheets(j).Activate
i = 0
Do
i = i + 1
If i = 100 Then
MsgBox ("Colonne numéro du flux non trouvé")
Exit Sub
End If
Loop Until Cells(1, i) = "Numéro du flux"
colNumFlux = i
ActiveWorkbook.Sheets(j).Activate
i = 1
While Cells(i, colNumFlux).Value <> ""
If Cells(i, colNumFlux).Value = numFlux Then
Rows(i).Select
GoTo Suite
End If
i = i + 1
Wend
Next j
Suite:
End Sub
cdt
jj