Dim i As Integer
Dim vide As Boolean
i = 2
vide = False
Do While vide = False
If IsEmpty(Sheets("Extract").Cells(i, 1)) Then 'si fin du tableau
vide = True
Else
If Sheets("Extract").Cells(i, 1) = 95724602 Then
Sheets("INV HSC").Cells(7, 9) = Sheets("Extract").Cells(i, 2)
End If
i = i + 1
End If
Loop