Impossible d'écrire après l'exécution d'une macro

Bonjour, j'ai une macro qui imprime une zone (printarea). Cela fonctionne parfaitement à l'exception que quand la macro est compléter, je ne peux écrire nulle part, il n'y a rien qui écrit. Le seul moyen que j'ai trouvé est de sélectionner une autre feuille (activate) et de retourner à ma feuille et là je peut écrire. Comment puis-je régler cela directement dans ma macro sans y insérer une ligne de code du style xxx.activate et ensuite mafeuil.activate, cela faite beaucoup de .activate?

Private Sub CommandButton3_Click()
ActiveSheet.unprotect "benny"
Application.ScreenUpdating = False
Columns("h").EntireColumn.Hidden = True
Dim totalchou As Integer
totalchou = WorksheetFunction.RoundUp(Range("d6"), 1)
With ActiveSheet.PageSetup
    .TopMargin = Application.CentimetersToPoints(3.5)
    .Orientation = xlPortrait
    .PrintArea = "$g$4:$q$36"
    .Zoom = 130
    .CenterHorizontally = True
    .CenterVertically = False
    .CenterHeader = Chr(10) & Chr(10) & Format(Now, "dddd dd mmmm yyyy") & Chr(10) & Chr(10)
    .CenterFooter = "CABARETS DE CHOU TOTAL REQUIS: " & totalchou
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("h").EntireColumn.Hidden = False
ActiveSheet.Protect "benny"
Application.ScreenUpdating = True
Worksheets("Mercredi").Range("U8").Select
End Sub

Bonjour,

A teste.

Sub CommandButton3_Click()
ActiveSheet.Unprotect "benny"
Application.ScreenUpdating = False
Columns("h").EntireColumn.Hidden = True
Dim totalchou As Integer
totalchou = WorksheetFunction.RoundUp(Range("d6"), 1)
With ActiveSheet.PageSetup
    .TopMargin = Application.CentimetersToPoints(3.5)
    .Orientation = xlPortrait
    .PrintArea = "$g$4:$q$36"
    .Zoom = 130
    .CenterHorizontally = True
    .CenterVertically = False
    .CenterHeader = Chr(10) & Chr(10) & Format(Now, "dddd dd mmmm yyyy") & Chr(10) & Chr(10)
    .CenterFooter = "CABARETS DE CHOU TOTAL REQUIS: " & totalchou
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Columns("h").EntireColumn.Hidden = False
Application.ScreenUpdating = True
Worksheets("Mercredi").Range("U8").Select
End Sub

Cordialement,

Mugiwaraa

Merci Mugiwaraa, ton aide fut précieuse. Le fait d'enlever la ligne de code qui remet la feuille en mode protégé corrige le problème, mais laisse ma feuille ... sans protection, alors j'ai inséré trois lignes de code dans une cellule cachée

Worksheets("Mercredi").Range("y2").Select
SendKeys "{0}"
SendKeys "{ENTER}"

étant donné que ma feuille se protège à chaque worksheet_change. Ce n'est peut-être pas "pro-programmeur" mais ça fait l'affaire. Si quelqu'un a une meilleure soluce...

Bonne soirée et encore merci