Renommer une feuille et ses cellules

bonsoir

j'ai ecris un bout de code pour lequel je rencontre quelques soucis , le but est à partir du classeur sur lequel je me trouve

examiner toutes les feuilles de ce dernier et si l'une d'entre elles porte la date du jour , la renommer en la datant au jour : j-1

ainsi que les cellule a1 et a2 de cette meme feuille qui devront porter les dates j-1

voici mon code :

Sub récupération()
Dim Sh As Worksheet
For Each Sh In Sheets
    If Sh.name=date then 
     MsgBox " Feuille  du : " & Sh.Name & "  trouvée dans le classeur "
    sh.unprotect "zaza"

    sh.name=date -1
      sh .range("a1")=date-1
      sh .range("a2")=date-1

    End If
Next Sh
sh.protect "zaza"
End Sub

mon code ne réagit pas

Pourriez vous m'apporter une correction ? merci

Bonsoir

Avec le nom des feuilles sous la forme 26_04_2012

Sub récupération()
    Dim i As Integer
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Format(Date, "dd_mm_yyyy") Then
         MsgBox " Feuille  du : " & Sheets(i).Name & "  trouvée dans le classeur "
        sh.Unprotect "zaza"

        With Sheets(i)    
        .Name = Format(Date - 1, "dd_mm_yyyy")
        .Range("a1") = Date - 1
        .Range("a2") = Date - 1
        End With

        End If
    Next i
    sh.Protect "zaza"
    End Sub

Amicalement

Nad

Merci pour cette réponse rapide , une dernière question ; est il possible d'ecrire en vba un format de date du type

26 avril 2012 plutôt que de la forme 26_04_2012 ?

merci

Re

Format(Date, "dd mmmm yyyy")

Amicalement

Nad

en tout cas merci pour tes réponses , ca marche , bonne soirée à toi