Sub selSheets()
Dim c As Range 'cellule parcourue
Dim j As Integer 'index de tableau
Dim Feuilles() As String 'Tableau des noms de feuille à sélectionner
With Feuil1
'parcourir les cellules de la colonne A
For Each c In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
'Si la cellule de droite contient oui
If LCase(c(1, 2)) = "oui" Then
'redimensionner le tableau et ajouter le nom de la feuille
ReDim Preserve Feuilles(0 To j)
Feuilles(j) = c
j = j + 1
End If
Next
End With
If j > 0 Then Sheets(Feuilles).Select
End Sub