Sub test()
Set c = ActiveSheet.Cells.Find("JANVIER", LookIn:=xlValues, lookat:=xlWhole)
coldeb = c.Column
'11 parceque 12 mois dans l'année
colfin = coldeb + 11
Set c = ActiveSheet.Cells.Find("FOURNISSEUR", LookIn:=xlValues, lookat:=xlWhole)
ldeb = c.Row + 1
colf = c.Column
Set c = ActiveSheet.Cells.Find("RUPTURE", LookIn:=xlValues, lookat:=xlWhole)
colrup = c.Column
Set c = ActiveSheet.Cells.Find("DELAI LIVRAISON", LookIn:=xlValues, lookat:=xlWhole)
coldel = c.Column
For n = ldeb To Cells(65536, colf).End(xlUp).Row
For m = coldeb To colfin
If Cells(n, coldel) <> "" Then
If Cells(n, m) <> "" And Cells(n, m) < Cells(n, coldel) Then
Cells(n, colrup) = "RUPTURE"
Exit For
Else
Cells(n, colrup) = "EN STOCK"
End If
End If
Next m
Next n
End Sub