si je ne rentre rien dans la case, j'ai un bug.

[Patrick]

Bonjour, j'ai un code qui me permet de rentrer du numériques dans mes cases , par contre normalement si je ne rentre rien dans la case, le programme ne devrait pas prendre en compte celle-ci et ce n'est pas le cas:
j'ai bien un bug quand je ne rentre pas de numéros.
Comment dois je proceder ?

Private Sub CmdCancel_Click()
Unload UserForm1
End Sub

Private Sub CmdOK_Click()
Sheets("Liste").Select
ActiveSheet.[DEB].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("DEB").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.txtNom
ActiveCell.Offset(0, 1).Value = UserForm1.txtPrenom
ActiveCell.Offset(0, 2).Value = CLng(UserForm1.TxtTelDom)
ActiveCell.Offset(0, 3).Value = CLng(UserForm1.Txtnumader)
ActiveCell.Offset(0, 4).Value = UserForm1.Txtprof
ActiveCell.Offset(0, 5).Value = UserForm1.Txtadress
ActiveCell.Offset(0, 6).Value = CLng(UserForm1.Txtpostal)
ActiveCell.Offset(0, 7).Value = UserForm1.Txtlocal
'Sheets("Client").Select
'Sheets("Client").Copy
Worksheets("Client").Copy after:=Worksheets("Client")

ActiveSheet.Name = UCase(UserForm1.txtNom) & " " & UserForm1.txtPrenom
ActiveSheet.Range("D5") = UserForm1.txtNom
ActiveSheet.Range("D6") = UserForm1.txtPrenom
If IsNumeric(UserForm1.TxtTelDom) = True Then ActiveSheet.Range("D13") = CLng(UserForm1.TxtTelDom)
ActiveSheet.Range("D15") = UserForm1.Txtprof
If IsNumeric(UserForm1.Txtnumader) = True Then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
ActiveSheet.Range("D9") = UserForm1.Txtadress
If IsNumeric(UserForm1.Txtpostal) = True Then ActiveSheet.Range("D10") = CLng(UserForm1.Txtpostal)
ActiveSheet.Range("D11") = UserForm1.Txtlocal
Unload Me
End Sub