Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
With Sheets("QIE")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then
If r = 1 Then
.Cells(derligne, r) = CDate(Ctrl)
Else
.Cells(derligne, r) = Ctrl
End If
End If
Next
End With
Else
Exit Sub
End If
End Sub