Formulaire- ressortie des saisis sur autre feuilles

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