Balayer un tableau pour trouver un intervalle

Bonjour,

C'est la première fois que je code en VBA et j'ai quelques soucis !

Je cherche à créer une fonction qui :

- prend en argument une valeur A1 et une valeur B1 rentrées par l'utilisateur
- balaie un tableau de données formé de
* 4 colonnes : les min (1ère colonne) et les max (2ème) de A, puis les min (3ème) et les max (4ème) de B.
* 23 lignes : toutes les catégories (1 ligne = 1 intervalle de min-max)

----

L'idée est de dire à l'utilisateur :
"D'après la valeur A1 et la valeur B1 que vous avez rentré, votre situation correspond à la catégorie 3 (pcq A1 sera compris entre le min et le max de la ligne 2, ainsi que le B1 pour les min/max des B).

Le petit piège c'est que selon si on considère A1 ou B1, rien ne nous assure de tomber (cas idéal) sur la même catégorie.
Dans ce cas, on esquivera la difficulté et on proposera les deux à l'utilisateur. Ce sera à lui de trancher selon le réalisme des réponses.


J'espère avoir été explicite,

Merci d'avance à ceux qui auraient une petite idée, j'ai mis un début de code en bas (qui ne marche pas, je ne sais pas pourquoi).


----

Sub trouveC()

Dim A1 As Double, B1 As Double
Dim i As Integer, j As Integer, Rep

For i = 9 To 22

If (A1>= Feuil2.Range("D" & i)) And (A1 <= Feuil2.Range("E" & i)) Then Rep = MsgBox("La Catégorie correspondante est : " & Feuil2.Range("C" & i), vbOKCancel)


Else: Rep = MsgBox("Catégorie non trouvée", vbOKCancel)

Next

For j = 9 To 22


If (B1>= Feuil2.Range("F" & j)) And (B1<= Feuil2.Range("G" & j)) Then Rep = MsgBox("La Catégorie correspondante est : " & Feuil2.Range("C" & j), vbOKCancel)


Else: Rep = MsgBox("Catégorie non trouvée", vbOKCancel)
Next


End Sub

>>> l'erreur que j'ai c'est : "erreur de compilation, end sans if"