Erreur dans macro : si valeur égale à alors texte

Bonjour à tous,

J'ai un petit problème avec ma macro suivante :

Dans la plage C j'ai des valeurs et selon cette valeur je veux inscrire un commentaire dans la cellule de droite et ainsi de suite.

Sub valeur()

Dim Plage As Range, Cel As Range

Set Plage = Range([C2], Cells(Rows.Count, "C").End(xlUp))

For Each Cel In Plage

If Cel > 1 And Cel < 161 Then Cel.Offset(0, 1).Value = "Acceptable"

ElseIf Cel > 160 And Cel < 801 Then Cel.Offset(0, 1).Value = "A_controler"

ElseIf Cel > 800 And Cel < 3201 Then Cel.Offset(0, 1).Value = "Critique"

ElseIf Cel > 3200 And Cel < 19201 Then Cel.Offset(0, 1).Value = "Inacceptable"

Else

End If

Next Cel

End Sub

Merci d'avance.

Bonjour

Essaie comme ceci :

Sub valeur()
Dim Plage As Range, Cel As Range
Set Plage = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For Each Cel In Plage
Select Case Cel
Case 1 To 160: Cel.Offset(0, 1).Value = "Acceptable"
Case 161 To 800: Cel.Offset(0, 1).Value = "A_controler"
Case 801 To 3200: Cel.Offset(0, 1).Value = "Critique"
Case 3201 To 19200: Cel.Offset(0, 1).Value = "Inacceptable"
End Select
Next Cel
End Sub

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Super.

Mille merci je prend note de l'astuce pour définir entre 2 valeurs.

Bonne journée.