Problème sur un bout de code

Bonjour,

Je rencontre un soucis sur ce bout de code. En effet, lorsque les ranges sont déclaré normalement (par exemple "B1:F103"), aucuns soucis. Par contre, dès que j'essaye d'y intégrer des variables, tout plante !

Si quelqu'un serait m'expliquer pourquoi je suis preneur

val et val1 sont définit en String

col et col2 en integer

Private Sub CommandButton4_Click()

val = ComboBox2.Value
val2 = ComboBox3.Value
col = Sheets("Feuil1").Rows(1).Cells.Find(what:=val, LookAt:=xlWhole).Column
col2 = Sheets("Feuil1").Rows(1).Cells.Find(what:=val2, LookAt:=xlWhole).Column

Sheets("Feuil1").Range(Cells(1, col), Cells(103, col + 4)).Copy Sheets("Feuil2").Range("B1")
Sheets("Feuil1").Range(Cells(1, col2), Cells(103, col2 + 4)).Copy Sheets("Feuil2").Range("G1")

End Sub

Problème résolue, simplement oublié de préciser la feuille dans la range..

Sheets("Feuil1").Range(Sheets("Feuil1").Cells(1, col), Sheets("Feuil1").Cells(103, col + 4)).Copy Sheets("Feuil2").Range("B1")