Sub ActiverFeuilleXclasseur(strNomFeuille As String)
Dim wk As Workbook
Dim sh As Worksheet
For Each wk In Workbooks
For Each sh In wk.Worksheets
If UCase(sh.Name) = UCase(strNomFeuille) Then
wk.Activate
sh.Activate
Exit Sub
End If
Next
Next
End Sub
Sub MACRO()
Dim i, j
For i = 1 To Workbooks.Count
For j = 1 To Workbooks(i).Worksheets.Count
Select Case Workbooks(i).Sheets(j).Name
Case "TOTO"
Workbooks(i).Sheets(j).Activate
End Select
Next j
Next i
End Sub