For j = 1 To 20000
If Sheets('Feuil2').Range('A' & j).Value = longueur + 1000000 And Sheets('Feuil2').Range('B' & j).Value = abscisse Then
u = u + 1
Cell = Sheets('Feuil2').Range('C' & j, 'D' & j)
'Cellmin = Sheets('Feuil2').Range('C' & j)
'Cellmax = Sheets('Feuil2').Range('D' & j)
End If
If u = chargt Then GoTo label1
Next j