Pb VBA Excel fonction cells help svp

Bonjour,

Please Help

Voila, j'ai un  problème avec la variable vligne, en effet, j'ai une erreur à la ligne Cells(vligne,1).select, je ne comprend pas pourquoi mais lorsque je remplace vligne par un chiffre cela fonctionne mais pas avec vligne.

A savoir que vligne est déclaré en long

Public Sub Bcherch_Click()

Dim Vtrouve As Range

    With worksheets("Facturation")
        .Activate
        Set Vtrouve = .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Find(What:=Ccherch.Value)
        If Nothing Is Vtrouve Then
            MsgBox "Non trouvé!"
        Else
            .Cells(Vtrouve.Row, Vtrouve.Column).EntireRow.Copy
        worksheets("recherche").Activate
         Cells(vligne, 1).Select
         ActiveSheet.Paste
         vligne = vligne + 1
        End If
    End With

End Sub


Mais quelqu'un a bien la solution n'est-ce pas?
Merci d'avance

Merci, ca fonctionne, elle était égale a 0!!!

Encore merci et désolé pour le dérangement