Sub Extractions()
Dim mavariable As String, exemples(4)
mavariable = Application.UserName
exemples(0) = Left(mavariable, 2)
exemples(1) = Right(mavariable, 3)
exemples(2) = Mid(mavariable, 1, 4)
exemples(3) = Mid(StrReverse(mavariable), 1, 1)
[C1] = mavariable
[A1:A4] = Application.Transpose(exemples)
[C1].TextToColumns [A5], xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 9))
End Sub