Separer des caractères collés dans une celulle en colonnes

Salut à tous,

J'ai une colonne dans 1000 enregistrement avec des caractères collés. Le début de chaque caractère est une lettre majuscule.

Comment je peux separer le contenu de chaque cellule en plusieurs colonne en mettant chaque caractère qui commence par la majuscule dans une colonne.

Voici un exemple d'une cellule: Hydraulique techniqueHydrodynamiqueAérodynamiqueRessource en eauEcoulementNappeEau souterraineMathématique

Merci pour votre aide.

bonjour,

Exécuter la macro suivante après avoir sélectionné toutes les cellules contenant les textes à travailler.

Important : les colonnes voisines (vers la droite) doivent être vide !

Ensuite (tout en gardant la même sélection), dans le menu :

choisir Données > Convertir

Cocher Délimité puis Suivant

Cocher Point-virgule puis Terminer

Sub galopin()
Dim i%, o, s$, sR$
For Each o In Selection
s = o.Value
   For i = Len(s) To 2 Step -1
      If Asc(Mid(s, i, 1)) < 91 And Asc(Mid(s, i, 1)) > 64 Then
      sR = Mid(s, i)
      s = Left(s, i - 1) & Chr(59) & sR
      End If
   Next
   o.Value = s
Next
End Sub

A+

Super super merci et mille fois merci ca très bien marcher

Je ne savais pas quoi faire car j'avais plus de 2000 lignes.