Set c = ActiveSheet.Cells.Find("SECTEUR", LookIn:=xlValue, LookAt:=xlWhole)
Set d = ActiveSheet.Cells.Find("PLANTE", LookIn:=xlValue, LookAt:=xlWhole)
Set e = ActiveSheet.Cells.Find("PARC", LookIn:=xlValue, LookAt:=xlWhole)
Set f = ActiveSheet.Cells.Find("DATE", LookIn:=xlValue, LookAt:=xlWhole)
Set g = ActiveSheet.Cells.Find("QUANTITÉ", LookIn:=xlValue, LookAt:=xlWhole)