Private Sub CBut_Valider_Click()
Ligne = ActiveCell.Row
With Sheets("Supprimer")
Dl = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Feuil2.Range("A" & Dl) = ActiveCell.Offset(0, -1).Value
Feuil2.Range("B" & Dl) = ActiveCell.Value
If Opt_Name = True Then Feuil2.Range("C" & Dl) = Opt_Name.Caption
If Opt_Name2 = True Then Feuil2.Range("C" & Dl) = Opt_Name2.Caption
If Opt_Name3 = True Then Feuil2.Range("C" & Dl) = TextBox1
End With
Rows(Ligne).Delete
UserForm3.Hide
End Sub