Select case ... range mutilples

Bonjour

Je voudrais qu'il y ai plusieurs valeurs selon celles déjà indiquée. Je sais faire pour en indiquer une, mais comment pour plusieurs ?

Concrètement, si ("O" & i) = "Semaine" et ("P" & i) = "Matin" alors ("C" & i), ("E" & i), ("G" & i)... = "7:45" ainsi que ("D" & i), ("F" & i)... = "15:45"

If Target.Column = 16 Or Target.Column = 15 Then

'on désactive le détection des évènements

Application.EnableEvents = False

'on récupère la ligne qui a été changé et on applique les formules

i = Target.Row

If Range("O" & i) = "Semaine" Then

Select Case Range("P" & i).Value

Case "matin": Range("C" & i) = "07:15"

bonjour

une façon de faire

case "matin"
Range("C" & i & ",E" & i & ",G" & i) ="07:45"
Range("D" & i & ",F" & i)= "15:45"
case ...
...
case else
...
end select

Ok, super simple en fait.

Merci