Sub essai()
Dim Fact As String
Dim Item As Range
Fact = InputBox("Entrez le numéro Facture")
Sheets("base").Activate
For Each Item In Range(Range("Q2"), Range("Q2").End(xlDown))
i = Item.Row
If CStr(Item.Value) = Fact Then
'
'
'etc...
'
'
j = j + 1
End If
Next Item
End Sub