If Not Application.Intersect(Target, Range("b11:af11")) Is Nothing Then
With Rempla
.OptionButton3 = Cells(Target.Row - 3, 1) = "IDE JOUR"
.TextBox3 = Cells(Target.Row - 2, 1)
.TextBox2 = Cells(6, Target.Column)
.Label6 = Cells(2, 2)
.OptionButton1 = Cells(Target.Row - 3, 1) = "IDE JOUR"
.OptionButton5 = Format(Cells(6, 8), "dddd") = "dimanche" 'cocher Dimanche si la cellule Cells(6, Target.Column) est un dimanche
.Show
End With
End If