Nombre supérieur à la cellule du dessous

Bonjour

Je recherche une formule VBA:

Sur A17:S17 je recherche à trouver la première cellule remplie.

J'arrive à détecter ma première cellule pleine par

Range("a17").End(xlToRight).Select

Si la première cellule détectée est N17 je voudrais revenir en arrière d'une colonne (soit revenir à gauche d'une colonne) et descendre d'une cellule soit:

Je me retrouve donc en M18 ou par exemple j'ai le nombre 5 et je voudrais le comparer avec la cellule du dessous soit M19

Si en M19 j'ai le nombre 7

Je voudrais que cela me dise: puisque M18 = 5 est inférieur à M19 =7, PAS POSSIBLE donc mettre en B1 = 0

L'autre cas est:

Si je suis en cellule M18 avec le nombre 6

En cellule M19 j'ai le nombre 4

Je voudrais que cela me dise: puisque 6 est supérieur à 4, c'est POSSIBLE donc B1 = 1

Autre exemple

Dernière cellule pleine détecter F17

E18 = 8

E19 = 9

Résultat B1 = 0

E18 = 2

E19 = 1

Résultat B1 = 1

Si quelqu'un peut m'aider.

En vous remerciant.

Cordialement.

Bonjour,

Macro à tester

Sub Test()
  Dim Dc%
  Dc = Cells(17, "A").End(xlToRight).Column
    If Cells(17, Dc).Offset(1, -1) < Cells(17, Dc).Offset(2, -1) Then
      Range("B1") = 0
    Else
      Range("B1") = 1
    End If
End Sub

Bonjour M12

Très gentil de votre part.

Cela fonctionne à merveille et c'est exactement ce que je voulais.

En vous remerciant.

Bien cordialement.

Gros