Bonsoir Pedro,
Pour le pb des 10 caractères, les codes du bouton OK corrigé:
Private Sub cmdOK_Click()
If Len(Txttel) < 10 Then
MsgBox "Il faut 10 caractères"
Txttel.SetFocus
Else
ActiveWorkbook.Sheets("Table").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = Txdatenvoi.Value
ActiveCell.Offset(0, 1) = Txtnomclt.Value
ActiveCell.Offset(0, 2) = Txttel.Value
Range("A1").Select
End If
End Sub
@+