voici un bout de code Excel dont j'ai eu besoin il y a peu.

Suite:

Code pour changer de feuille avec vérification de l'existance de la feuille


Dim PageBilan As Integer
Dim i As Integer
dim Nom_Feuille_Cherche as string

Nom_Feuille_Cherche = "Feuille_Bilan"
PageBilan = 0

For i = 1 To ActiveWorkbook.Sheets.Count
If UCase(ActiveWorkbook.Sheets(i).Name) = Nom_Feuille_Cherche Then
PageBilan = i
ActiveWorkbook.Sheets(PageBilan ).Activate
Exit For
End If
Next i

If PageBilan = 0 Then
MsgBox "La page de configuration est introuvable"
Exit Sub
End If