Bonjour,
Voici le code pour la validation des données
Private Sub b_validation_Click()
'Macro Dan pour Jonat57
Dim dlg As Integer
Dim i As Byte
For i = 1 To 3
With Sheets("bd")
dlg = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & dlg) = Me.Controls("nom" & i)
.Range("B" & dlg) = Me.annee
.Range("C" & dlg) = Me.mois
.Range("D" & dlg) = Me.Controls("CA" & i)
End With
Next
Unload Me
End Sub
Amicalement