Private Sub CommandButton10_Click()
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
For i = 5 To 45 Step 5
If Me("TextBox" & i) <> "" And Me("TextBox" & i + 4) <> "" Then
ligne = ligne + 1
Sheets("BD").Cells(ligne, 1) = Me.TextBox46
Sheets("BD").Cells(ligne, 2) = Me("TextBox" & i)
Sheets("BD").Cells(ligne, 3) = CDbl(Me("TextBox" & i + 4))
Else
Exit For 'on arrête dès la première TB vide
End If
Next
End Sub