Probléme Select Case multiples

Bonjour Forum,

Je bloque sur un select case

Option Explicit

Private Sub Btnvalider_Click()
  Dim strChemin As String
  Dim strNomFic As String
  Dim Lg

  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  ' Si le nom du fichier n'est pas saisi, message alerte et on ne fait rien
  strNomFic = TextBox1.Value
  If strNomFic = "" Then
    MsgBox "Le nom du fichier doit être saisi", vbCritical, "Enregistrement impossible"
    Exit Sub
  End If
  If strChemin = "" Then strChemin = ThisWorkbook.Path
  ' Copie en Excel
  Select Case Sheets("47").Range("M1")
     Case "Vente Janvier"
     With Sheets("1")
    .Visible = xlSheetVisible
    .Copy
    .Visible = xlSheetHidden
    End With
     Case Else
       MsgBox "Page inexistante"
        Exit Sub
  End Select
        ActiveSheet.SaveAs strChemin & "\" & strNomFic
        ' Fermer le fichier sauvegardé
        ActiveWorkbook.Close

  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

End Sub

Je souhaites modifier ma macro pour que si je selectionne Vente Février il aille me chercher la feuille 2 et si je sélectionne Vente Mars idem feuille 3 ect...

En vous remerciant par avance car je bloque vraiement sur ce point

-- 06 Jan 2011, 10:35 --

Probléme résolu.

Merci

Bonjour,

J'avais commencé à regarder,

on suppose que M1 est une liste, la partie Select Case pourrait être :

Dim Sh$
    Select Case Sheets("47").Range("M1")
        Case Is = "Vente Janvier": Sh = "1"
        Case Is = "Vente Février": Sh = "2"
        Case Is = "Vente Mars": Sh = "3"
        'etc...
    End Select
    On Error GoTo Fin
         With Sheets(Sh)
            .Visible = xlSheetVisible
            .Copy
            .Visible = xlSheetHidden
        End With
    '--- suite macro ---
    '---
    Exit Sub
Fin:
MsgBox "Page inexistante"

Amicalement

Claude