LastRowRelance = Feuil8.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
PlageRelance = Range(Feuil8.Cells(1, 1), Feuil8.Cells(LastRowRelance, 1))
LastRowRespo = Feuil9.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
PlageRespo = Range(Feuil9.Cells(1, 1), Feuil9.Cells(LastRowRespo, 1))
ComboBoxRelance.Clear
For n = LBound(PlageRelance) To UBound(PlageRelance)
ComboBoxRelance.AddItem CLng(PlageRelance(n, 1))
Next n
ComboBoxRespo.Clear
For m = LBound(PlageRespo) To UBound(PlageRespo)
ComboBoxRespo.AddItem CLng(PlageRespo(m, 1))
Next m