XL 2013 Empêcher l'affichage d'une fenêtre flottante pour certaines feuilles spécifiques dans un classeur

Sub Traiter()
Dim Plage As Range, MaCel As Range, Lig&, Col%, LeNom§, LaFormation§, Liste$, Liste1$, Derlig&
Dim Ws As Worksheet

    For Each Ws In Worksheets
        If Ws.Name <> "Restant à former" And Ws.Name <> "DonnéeSource" Then
            Derlig = Ws.Range("A" & Rows.Count).End(xlUp).Row
            Set Plage = Ws.Range("E2:P" & Derlig)
            For Each MaCel In Plage
                If MaCel < (Date - 1005) Then
                    Lig = MaCel.Row
                    Col = MaCel.Column
                    LeNom = Ws.Range("A" & Lig)
                    LaFormation = Ws.Cells(1, Col)
                    Liste1 = LeNom & " avec  " & LaFormation & " à renouveler"
                    Liste = Liste & vbCrLf & Liste1
                End If
            Next MaCel
            If Liste <> "" Then
                Message = Message & "Pour " & Ws.Name & Liste
            End If
            Liste = ""
        End If
    Next Ws
    If Message <> "" Then
        MsgBox Message
    Else
        MsgBox "Tout est OK"
    End If
End Sub

Private Sub Workbook_Open()
    Traiter
End Sub