Private Sub Valider_Click()
If (Longueur.Value = 0 And Quantité.Value = 0) Then
Else
derligne = Range("B65535").End(xlUp).Row + 1
Range("A" & derligne).Value = Longueur.Value
Range("B" & derligne).Value = Quantité.Value
Saisie_débits.Longueur .Value = ""
Saisie_débits.Quantité .Value = ""
End If
End Sub
Private Sub Calcul_Click()
End Sub