Dim Li As Integer
Li = Me.ComboBox_date.ListIndex + 2
While Li <= CDate(ComboBox_Dfin) - CDate(ComboBox_Ddébut) + 1
With Sheets("Feuil2")
.Cells(Li, 2).Value = ComboBox_Poste.Value
.Cells(Li, 5).Value = TextBox_Heures.Value
.Cells(Li, 7).Value = TextBox_commentaire.Value
If OptionButton_yes.Value = True Then
.Cells(Li, 4).Value = "rs"
ElseIf OptionButton_no.Value = True Then
.Cells(Li, 4).Value = ""
End If
Li = Li + 1
End With
Wend