Private Sub CommandButton1_Click()
Dim dl As Long, i As Long, j As Long
Dim NewLig As Long
With Feuil8
NewLig = Application.Max(.Cells(.Rows.Count, "B").End(xlUp).Row + 2, 25)
.Rows("2:25").Copy Destination:=.Rows(NewLig)
.Rows(NewLig & ":" & NewLig + 24).Hidden = False
Application.CutCopyMode = False
For i = 1 To 8
.Range("V" & NewLig + i + 2) = IIf(Me.Controls("CheckBox" & i), "Oui", "")
Next i
.Range("b4,f5:u12,b14:t22,e24,i24").ClearContents
For j = 1 To 8
.Range("W" & NewLig + j + 2) = IIf(Me.Controls("CheckBox" & j), "Non", "")
Next j
.Range("F" & NewLig + 3) = ComboBox11
.Range("G" & NewLig + 3) = ComboBox1
End With
Unload Me
End Sub