Private Sub CommandButton1_Click()
Dim lig As Long, i As Long
With Feuil1
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 6
Controls("CheckBox" & i).Caption = IIf(Controls("CheckBox" & i).Value = True, "Propre", "Sale")
.Cells(lig, i) = Controls("CheckBox" & i).Caption
Next i
End With
End Sub