Salut,
J'ai fait 2 modifs dans ton code :
Sub recherche_seuil()
Application.ScreenUpdating = False
Dim seuil, cell, Derligne As Integer
'Détermination de la dernière ligne non vide
Sheets("Calcul seuil").Select
Derligne = Range("A65536").End(xlUp).Row
For cell = 2 To Derligne
For seuil = 1 To 500
Range("b" & cell).Value = seuil
If Range("K" & cell).Value < Range("F" & cell).Value Then
Range("G" & cell).Value = ""
Else
Range("G" & cell).Value = "Seuil OK"
End If
Next seuil
Next cell
Application.ScreenUpdating = True
End Sub
Range("A1").End(xlDown).Row renvoyait systématiquement 2, j'ai remplé par Range("A65536").End(xlUp).Row, à mon avis c'est ce que tu cherchais à faire.
J'ai déplacé le Next seuil qui a mon sens était mal placé.
Girodo,