Private Sub CommandButton1_Click()
Dim k As Integer, lg As Integer
Dim ligne As Integer
Dim col As Integer
With F_création_simple
If .ca1 + .ca2 + .ca3 = "" Then Exit Sub
End With
k = 1
lg = 0
ligne = Sheets("bd").Range("A65536").End(xlUp).Row + 1
For i = 0 To 2
If F_création_simple.Controls("ca" & k).Value <> "" Then
With Sheets("bd")
.Cells(ligne, 1).Offset(lg, 0) = Application.Proper(F_création_simple.Controls("nom" & k))
.Cells(ligne, 1).Offset(lg, 1).Value = CLng(F_création_simple.annee)
.Cells(ligne, 1).Offset(lg, 2).Value = F_création_simple.mois
.Cells(ligne, 1).Offset(lg, 3).Value = CDbl(F_création_simple.Controls("ca" & k))
lg = lg + 1
End With
End If
k = k + 1
Next i
For k = 1 To 3
F_création_simple.Controls("ca" & k).Value = ""
Next k
Me.Hide
End Sub