je sais pas trop en faite, voilà ce que j'ai tapé:
Select Case LCase(Trim(Worksheets("saisie").Range("B37")))
Case "inactif"
Worksheets("saisie").Range("B37") = 2
Case "actif"
Worksheets("saisie").Range("B37") = 1
Case Else
Worksheets("saisie").Range("B37") = 3
End Select
@+