"Alertes" et ne pas activer/afficher le tableur

[kaboche]

Bonjour,

Avec ce code, j'arrive à me créer une alerte avec des critères bien précis sur un tableur excel via un formulaire VBA. Cependant, à chaque alerte, le tableau de données apparait. Je souhaite garder cette alerte mais sans que le tableur concerné s'affiche.

Pouvez vous m'aider?
Merci de votre aide

kaboche

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim Message As String
 
Message = ""
 
Worksheets("bdouvrages").Activate
Range("A4:A154").Select
Do Until IsEmpty(ActiveCell.Value)
    If IsEmpty(ActiveCell.Offset(0, 5).Value) Then Message = Message & vbTab & ActiveCell.Value & vbCrLf
    ActiveCell.Offset(1, 0).Select
Loop
If Message = "" Then
    MsgBox "Ouvrages complets", vbInformation, "Alertes ouvrages"
Else
    Message = "Ouvrages sans code bassin" & vbCrLf & Message
    MsgBox Message, vbExclamation, "Alertes ouvrages"
End If
 
End Sub