On peut aussi utiliser Données/Convertir
Séparateur : [X]Espace
Ce qui donne en VBA:
Code:
Sub extraireA() [COLOR=Green]' extrait (SHER77VIL) dans la cellule
'adjacente de la cellule active[/COLOR]
ActiveCell.TextToColumns .Offset(, 1), , , , , , , True, , , Array(Array(1, 1), Array(2, 9))
End Sub
Code:
Sub extraireB()
[COLOR=Green]' éclate le contenu de la cellule en 2 cellules[/COLOR]
ActiveCell.TextToColumns .Offset(, 1)
End Sub