Dim equipe As String
equipe = Range("$L$1")
Dim mois As String
mois = Range("$L$2")
Select Case equipe
Case Is = "EQUIPE A"
Select Case mois
Case "JANVIER"
With Range("$L$3").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2"
End With
Case "FÉVRIER"
Range("$L$3").Validation.Delete
Range("$L$3").Value = "3"
Case Else
Range("$L$3").Validation.Delete
Range("$L$3").Value = "impossible"
End Select
Case "EQUIPE B"
Select Case semaine
Case "JANVIER"
Range("$L$3").Validation.Delete
Range("$L$3").Value = "4"
Case "FÉVRIER"
Range("$L$3").Validation.Delete
Range("$L$3").Value = "5"
Case Else
Range("$L$3").Validation.Delete
Range("$L$3").Value = "impossible"
End Select
Case Else
Range("$L$3").Validation.Delete
Range("$L$3").Value = "impossible"
End Select