Bonjour à tous, j'aurais besoin d'un p'tit coup de main pour traduire ce bout de code en une formule
Select Case Rang.Value
Case 1, 2, 3, 4, 5, 6
.Range("bi5").Value = "Pas bon"
Case 7, 8
.Range("bi5").Value = "Admissible"
Case Is > 9
.Range("bi5").Value = "Ok"
Case Else...