Message MsgBox

Bonjour le forum,
Est-il possible de mettre un message dans la macro suivante ou dans l'Userform lorsque celle-ci trouve la même date?
Genre : "Il existe déjà une séance à cette date"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long, Cel As Range, Couleur As Integer

If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B9:B" & Rows.Count), Target) Is Nothing Then
Range("A" & Target.Row) = IIf(Target = "", "", Date)
If Target = "" Then
Couleur = Target.Offset(-1, -1).Interior.ColorIndex
Ligne = Target.Row
While Left(Range("A" & Ligne), 5) <> "Série"
Ligne = Ligne - 1
Wend
Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Couleur = Cel.Interior.ColorIndex
End If

Unprotect
'Target.Interior.ColorIndex = Target.Offset(0, -1).Interior.ColorIndex
With Target.Offset(0, -1).Resize(1, 8)
.ClearContents
.Interior.ColorIndex = Couleur
End With
Protect
End If
End If
End Sub



Où dans l'userform?

Private Sub ComboBox1_Change()
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - AAAA" Then
Sheets("Levet-aaaa").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - BBBB" Then
Sheets("Levet-bbbb").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - CCCC" Then
Sheets("Levet-cccc").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - DDDD" Then
Sheets("Levet-dddd").Select
AjouteSeance
End If
Unload Me
End Sub