.../...
For Each Feuille In ThisWorkbook.Worksheets 'Sheets(Array("2009", "2010", "2011"))
If Left(Feuille.Name, 1) = 2 Then
DerLig = Feuille.Range("A" & Rows.Count).End(xlUp).Row
For Each Cel In Feuille.Range("A2:A" & DerLig)
FlgTrouve = False
If IsNumeric(VSearch) Then
If Cel.Offset(0, Col - 1) = VSearch Then FlgTrouve = True
Else
If InStr(1, Cel.Offset(0, Col - 1), VSearch, vbTextCompare) > 0 Then FlgTrouve = True
End If
' Si une valeur est trouvée
If FlgTrouve = True Then
' Inscrire le numéro de la ligne dans la 1ère colonne masquée
Me.ListBox1.AddItem Cel.Row
' Inscrire le nom et le prénom dans les 2 autres
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cel.Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cel.Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cel.Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Feuille.Name
End If
Next Cel
End If
Next
.../...