Private Sub Command1_Click() Dim MyTab() As String Dim Chaine As String Dim SizeTab As Integer Chaine = "Salut,je,m'appelle,samir" MyTab() = Split(Chaine,",") SizeTab = UBound(MyTab) MsgBox "Voici le nombre d'element dans le tableau : " & SizeTab End Sub