mettre un devis en attente

Sub EnAttenteDevis()
'à affecter à un bouton
While ActiveSheet.Name <> "Devis": DoEvents: Wend
MsgBox "coucou" 'pour tester
End Sub

Private Sub CommandButton24_Click()
'Sub EnAttenteDevis()
'à affecter à un bouton
While ActiveSheet.Name <> "facture": DoEvents: Wend
Sheets("facture").Copy after:=Sheets("client")
''Sheets(F1).Copy after:
'MsgBox "coucou" 'pour tester
'End Sub
End Sub

Sheets("facture").Copy "C:\essaiperso\devis d'attente\"

Sheets("facture").Copy
ActiveWorkbook.SaveAs FileName:="C:\essaiperso\devis d'attente\"

Dim Rep As Integer
Rep = MsgBox("Voulez-vous sauvagarder une copie de la facture?", vbYesNo + vbQuestion, "Sauvegarder une copie")
If Rep = vbYes Then

' ici le traitement si réponse positive
Sheets("facture").Copy
Me.Hide

' chemin pour l'enregistrement
ChDir "C:\essaiperso\devis d'attente\"

'Ouvrir la boite de dialogue
'Application.Dialogs(xlDialogSaveAs).Show "Date" & "- Planning"
Application.Dialogs(xlDialogSaveAs).Show Format(Now, "yyyy mm dd") & " - facture "
Else

End If