VBA - Graphique/variable chartstyle

Hello,

En fait j'ai une macro qui genere les données que reprend un graph en fonction d'un tableau

Passons,

Le problème c'est que j'ai une variable (genre bleu ou rouge) et quand c'est bleu, le graph passe en bleu, et rouge, en rouge

le bout de code de la macro est :

derlne = Range("A28").CurrentRegion.Rows.Count + 27
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SetSourceData Source:=Range("Powerpoint!$B$28:$E$" & derlne)
ActiveChart.ClearToMatchStyle
If dp = "bleu" Then
ActiveChart.ChartStyle = 2
Else
ActiveChart.ChartStyle = 3
End If

Range("G7") = dp
Range("G8") = ComboBox2

Le probleme c'est que ca fonctionne pas... et quand je mets une variable sur chartstyle, il ne veut pas, il veut que des integer...

Merci

c'est bon ca marche, juste un probleme de dim