Bonjour à tous
j'ai un code qui bug en 2007 ce qui n'étais pas le cas en 2003

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub feuille_de_la_semaine()
Dim reponse As String
    Sheets("commande").Copy After:=Sheets(3)
    reponse = InputBox("nom de la feuille")
    Sheets("commande (2)").Select
    Sheets("commande (2)").Name = reponse
End Sub
j'ai le message
exécution interrompue, avec un focus sur la ligne 4