With Sheets("Domaines")
For NumOnglet = 0 To Me.LB_synthese_domaines.ListCount - 1
Nligne = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).row
.Range("A" & Nligne) = IDcandidat
.Range("B" & Nligne) = Me.LB_synthese_domaines.List(NumOnglet, 0)
.Range("C" & Nligne) = Me.LB_synthese_domaines.List(NumOnglet, 1)
.Range("D" & Nligne) = Me.LB_synthese_domaines.List(NumOnglet, 2)
.Range("E" & Nligne) = Me.LB_synthese_domaines.List(NumOnglet, 3)
.Range("F" & Nligne) = Me.LB_synthese_domaines.List(NumOnglet, 4)
Next NumOnglet
End With