Sub eclate()
eclatement = Split(Selection.Value, " ", [COLOR=red]3[/COLOR])
For n = 0 To UBound(eclatement)
Selection.Offset(0, n + 1) = eclatement(n)
Next n
End Sub
- Ceci consiste à y trouver des "mots clés" qui sont dans une autre table dédiée, puis les "extraire".