Dim Cellule As Range
Dim Semaine As Integer
Dim Jour As Integer
Dim HeureD As Integer
Dim HeureF As Integer
Dim Plage As Range
Semaine = Range("E3:G309").Find(Me.ComboBox1.Value, lookat:=xlWhole).Row + 2
Jour = Range("B" & Semaine & ":BD" & Semaine).Find(Me.ComboBox2.Value, lookat:=xlWhole).Column - 2
HeureD = Range("B" & Semaine + 1 & ":L" & Semaine + 1).Find(Me.ComboBox3.Value, lookat:=xlWhole).Column
HeureF = Range("B" & Semaine + 1 & ":L" & Semaine + 1).Find(Me.ComboBox4.Value, lookat:=xlWhole).Column
Set Plage = Range(Cells(Semaine + 2, HeureD + Jour), Cells(Semaine + 2, HeureF + Jour))
For Each Cellule In Plage
If Cellule.Interior.Color = 65535 Then
MsgBox "Le moyen est occupé, veuillez saisir un notre moment !", vbExclamation, "Impossible !"
Exit Sub
Else
Cellule.Interior.Color = 65535
End If
Next Cellule
End Sub