Bonjour à tous,

Je veux créer une macro avec la boucle case. Mais j'ai un problème lors de l'éxecution, j'ai le message suivant : Erreur de compilation Case sans select case.
Pourtant dans mon code j'ai bien l'impression que j'ai mon select case pour tous les cas?
Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
 
Select Case Range("A1").Value
 
Case Is < 10
For i = 56 To 82
Rows("i").EntireRow.Delete Shift:=xlUp
Exit For
 
Case Is < 15
For i = 56 To 81
Rows("i").EntireRow.Delete Shift:=xlUp
Exit For
 
End Select
End Sub
Merci de votre aide