Private Sub Command1_Click() Dim chaine As String chaine = "AAAABBBCCCCCDDD" MsgBox chaine chaine = InserePointVirgule(chaine, 5) MsgBox chaine End Sub Private Function InserePointVirgule(s As String, i As Long) As String ' Insère un point virgule dans la chaine de caractères s, à la position i If i <= Len(s) And i > 0 Then InserePointVirgule = Left$(s, i - 1) & ";" & Right$(s, Len(s) - i + 1) End If End Function