Conditions SI pour savoir si une plage de donnée est activée

Bonjour,

Je voudrais mettre une condition SI pour quand une plage de donnée est activée permettre l'affichage d'un graphique.

Voici mon code et merci d'avance

If Item_NCUMULE = Activate Then 'SI CONDITION VRAIE

'Déclaration des variables

Dim Graphe2 As Object

'Référencé l'objet CurrentChart et le graphique

Set CurrentChart = Sheets("GraphiqueNC").ChartObjects(1).Chart

'Active le Graphique

Sheets("GraphiqueNC").ChartObjects("Graphe2").Activate

ActiveChart.ChartArea.Select

'Attribution d'un nom pour l'export du graphique où se trouve l'Excel

Fname = ThisWorkbook.Path & "\GraphiqueNC.gif"

CurrentChart.Export Filename:=Fname, FilterName:="gif"

'IMPORTATION DE L'IMAGE DANS LE FICHIER OU SE TROUVE L'EXCEL

UserForm1.Image1.Picture = LoadPicture(Fname)

UserForm1.Show 0

Else 'SI CONDITION FAUSSE

'Boîte de dialogue

MsgBox "Affichage du graphique impossible, vous n'êtes pas en NON CUMULE"