Probleme avec la formule Intersect en VBA

Bonjour à tous,

Je recherche à vérifier qu'une cellule appartient bien à une plage definie (dans ce cas, que la cellule cells(1,i) appartient bien à la plage range("cells(1,j):cells(1,k)")

Pour cela, j'utilise le code suivant et fais appel à la fonction "Intersect" :

Sub Verifierplage()
I = Right(Workbooks("Creationdecoupage").Worksheets("page de garde").Cells(6, 2).Value, 5)
j = Right(Workbooks("Creationdecoupage").Worksheets("Code").Cells(3, 5).Value, 5)
k = Right(Workbooks("Creationdecoupage").Worksheets("code").Cells(3, 6).Value, 5)

If Not Application.Intersect(Cells(1, I), Range("Cells(1, j):Cells(1, k)")) Is Nothing Then
   MsgBox "Cellule fait partie de Plage"
End If

End Sub

I, J, K sont des nombres entiers

Pourtant, quand je genere mon code, j'ai systeematiquement un message d'erreur. Auriez vous une idée du probleme ?

Par avance, merci

Cordialement

Jean

Bonjour

et range ( cells(j,k) , virgule cells(i,k))

A tout hasard

FINDRH