Selection Vba

[butterfly94]

Bonjour le forum!
Je souhaite écrire une procédure qui me permette de sélectionner toutes les feuilles d'un classeur dont le contenu de la cellule B2 est vide.
J'espere que cest assez clair...
Merci bcp bcp pour votre aide qui est tjrs tres efficace!

 

[Cousinhub]

Re : Selection Vba

Bonjour,
un essai, il y a peut-être plus succinct...

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