HELP!! VB Graphique Excel gestion étiquettes

Bonjour à tous,

Je suis totalement novice en VBA (j'apprends sur le site du zéro !) et là je suis perdu !
Peut-être que ce que je vais vous demander est vraiment basique .... et j'en suis désolé ... Mais SVP : HELP ME !

En abscisse j'ai mes occurences : le nombre de fois où un sujet revient.
En ordonnée : le niveau de satisfaction avec lequel est exprimé le sujet.
Dans mes statistiques, j'ai d'autres données intéressantes à montrer aux clients, mais que je n'arrive pas à rendre visuellement. C'est le niveau d'implication avec lequel est évoqué le sujet + si le sujet est impliqué émotionnellement ou rationnellement:

Sur l'implication j'essaie de faire en sorte que l'étiquette du sujet soit grosse quand l'implication est forte, et petite quand l'implication est faible.
ex. Etiquette grosse si indice d'implication > 0.75
Etiquette moyenne si indice d'implication entre 0.5 et 0.75
Etiquette petite si indice d'implication <0.5

Pour l'émotionnel et rationnel, c'est plus basique :
Si le sujet est émotionnel (1), l'étiquette est en rouge
Si le sujet est rationnel (0), l'étiquette est en bleu

J'ai commencé par faire cette macro pour spécifié mes 4 séries... Mais je ne sais pas du tout comment je peux agir sur des formules. Par exemple, comment je peux dire : sur "Implication", une étiquette grosse de 8 si >0,75, grosse de 5 entre 0,5 et 0,75 et enfin grosse de 2, inférieur à 0,5 ????????? HELP ME PLEASE !!!!!!!

Même chose pour les couleurs ... Je ne connais pas les formules, et je n'arrive pas à les trouver ...

Sub Macro1()
Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).MarkerSize = 8
'occurence
Worksheets(1).ChartObjects(1).Chart.SeriesCollection(2).MarkerSize = 8
'satisfaction
If Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).Value > "0.75" Then Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).MarkerSize = 30
Else
If Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).Value < "0.5" Then Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).MarkerSize = 10
Else
If Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).Value > "0.5" And Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).Value > "0.5" < 0.75 Then Worksheets(1).ChartObjects(1).Chart.SeriesCollection(3).MarkerSize = 15
End If
End If
End If
End If
'Implication
Worksheets(1).ChartObjects(1).Chart.SeriesCollection(4).MarkerSize = 8
'Emotionnel
End Sub


--> MESSAGE D'ERREUR : Erreur de compilation: Else sans If



Merci d'avance !!!!!!!!!!!!!!!!!!!!!!