Macro couleur auto + tri auto sur pls feuille

Bonjour à toutes et tous,

je cherche désespérément à écrire une macro (sous open-office CALC) me permettant de surligner une plage de cellule (A1:I1) en fonction de I.

J'ai essayé ceci :

Sub Main
Range("I2:I145").Select
For Each Cell In Selection
If Cell.Value = "Vendu" Then
Cell.Interior.ColorIndex = 1
End If
If Cell.Value = "A vendre" or "Dépôt vente"
Cell.interior.ColorIndex = 2
End If
If Cell.Value = "Demander" Then
Cell.interior.ColorIndex = 3
End If
Next
End Sub

Et ca ne marche pas... (pour info je débute tout juste.) quand je clique sur "exécuter le BASIC", j'obtiens un message d'erreur "erreur d'exécution BASIC. Sous-procédure ou procédure d'exécution non définie" et la deuxième ligne est surlignée en gris/beige.

Je vous avoue que ca ne parle pas trop et je ne vois pas ou je me plante...

Dans un second temps, j'aimerais pouvoir faire des tris automatiques de cette feuille vers d'autres feuilles, toujours en fonction de la colonne I: mettre les "vendu" ensemble sur la feuille 2, les "A vendre" et "dépôt vente" ensemble sur la feuille, etc.

Pourriez vous aussi m'indiquer des pistes à suivre car je me perds dans les tutoriels d'open-office sans réellement trouver de réponses.