Sub afficher()
Worksheets("Affichage").Activate 'elle est non visible donc ne s'active pas
Dim i As Integer
i = 1
While Range("B" & i).Value <> "" 'quelle feuille?
Sheets(Range("B" & i).Text).Visible = True
i = i + 1
Wend
Sheets("toto").Activate 'elle est déjà active
End Sub