Dépassement de capacité???

Bonjour,

j'ai une ligne dans mon code qui me donne l'erreur suivante: dépassement de capacité.

Je vous écrit donc mon code et en gras, c'est la ligne qui me donne l'erreur.

Sub Sortie()
Dim ref As String, qte As Single, lig As Byte
Select Case MsgBox("Êtes-vous sur de vouloir sortir un produit", vbYesNo + vbInformation, "Info")
Case vbYes
With Sheets(2)
ref = .Range("C7")
qte = .Range("C18")
End With

With Sheets(1)
lig = .Columns().Find(ref, .Range("A4")).Row
.Cells(lig, 6) = qte
End With
Case vbNo
Sheets("Saisie").Activate
End Select
End Sub

quand je lui demande de trouver une valeur qui réellement se situe vers A10 tout va bien elle me la trouve. mais si la valeur se trouve vers A400, hé bien elle me dit dépassement de capacité. J'ai compris son message, mais je ne sais pas comment le contourner!!!

Merci
Klodine