Sub bab()
Dim s As String
Dim x As Integer
Dim y As Integer
s = InputBox("entrez un mot")
x = InputBox("entrez un chiffre")
If x > Len(s) Then
MsgBox ("Pas plus de lettres que dans le mot svp")
Exit Sub
End If
y = ((Len(s) - x) / 2) + 1
MsgBox ("les " & x & " lettres au milieu de " & s & " sont " & Mid(s, y, x))
End Sub