Sub Macro1()
Dim Tableau()
compteur = 1
For Each sh In Sheets
With sh
If .[B2] = "" Then
ReDim Preserve Tableau(1 To compteur)
Tableau(compteur) = .Name
compteur = compteur + 1
End If
End With
Next sh
If compteur = 1 Then Exit Sub
Sheets(Tableau).Select
End Sub