Bonjour aslo83
As-tu effectuer une recherche sur le forum avant de demander
Sinon, voici quand même un bout de code
Private Sub Validation_Click()
Dim nLig As Long
If Me.CheckBox1.Value = False And Me.CheckBox2 = False Then
MsgBox "Vous devez obligatoirement cocher un des 2 cases !", vbCritical, "OUPS..."
Exit Sub
End If
' Avec la feuille de destination
With ThisWorkbook.Worksheets("Données")
nLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & nLig).Value = Me.Tbx_TGI
.Range("B" & nLig).Value = Me.Tbx_Nom
.Range("C" & nLig).Value = Me.Tbx_Prénom
.Range("D" & nLig).Value = Format(Now(), "dd/mm/yyyy")
End With
End Sub
@+