Private Sub ComboBox15_Click()
Dim Str_1 As String
Dim Str_2 As String
Str_1 = "Une Ronde sera à effectuer en fin de travaux, sur appel de la Société en charge du chantier. _
Ainsi qu'une surveillance accrue, pendant les 2 heures qui suivent la fin de permis de feu"
Str_2 = "Une Ronde unique sera à effectuer en fin de travaux, sur appel de la Société en charge du chantier"
Me.Label1.Caption = IIf(Me.ComboBox15 = "permis de feux", Str_1, Str_2)
End Sub