Problème de définition d'une plage de cellules

Bonjour à tous,

Tout d'abord, je remercie infiniment tous ceux et celles qui voudront bien m'aider pour l'erreur suivante:

"erreur d'execution 1004" erreur définie par l'application ou l'objet

Cette erreur est affichée en mode "pas à pas" après ma définition de plage "myrange1"

Voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range

Dim temp_1 As Integer

Dim coltemp1 As Integer

Dim myrange1 As Range

Dim max1 As Single

Dim ligCI_1 As Integer

Dim ligCF_1 As Integer

With Sheets("calcul")

temp_1 = .Cells(19, 3)

'associe la colonne en fonction de la température1

If temp_1 = "20" Then coltemp1 = 2

If temp_1 = "30" Then coltemp1 = 3

If temp_1 = "40" Then coltemp1 = 4

If temp_1 = "50" Then coltemp1 = 5

If temp_1 = "60" Then coltemp1 = 6

If temp_1 = "80" Then coltemp1 = 7

'défini la ligne de la valeur cherché dans zone de recherche

ligCI_1 = Application.Match(Sheets("calcul").Cells(25, 3).Value, Sheets("viscosity").Range("A:A"), 0)

ligCF_1 = Application.Match(Sheets("calcul").Cells(26, 3).Value, Sheets("viscosity").Range("A:A"), 0)

Set myrange1 = Sheets("viscosity").Range(Cells(ligCI_1, coltemp1), (Cells(ligCF_1, coltemp1)))

End Sub

bonsoir,

essaie ainsi, si tu n'indiques pas à quelle feuille est liée cells, cela fait référence à la feuille active. et vba ne comprend pas comment définir un range sur viscosity en prenant des cellules sur une autre feuille.

With Sheets("viscosity")
 Set myrange1 = .Range(.Cells(ligCI_1, coltemp1), .Cells(ligCF_1, coltemp1))
End With

Merci beucoup, ça marche. Dire que j'y ai passé ma soirée hier soir.

Encore merci.