Supprimer les deux premières phrases d'une cellule

bonjour,

J'ai un tableau excel.

Celui ci est composé d'une seule colonne. Cette colonne est composée de 2500 cellules (de A1 à A2500).

Chaque cellule contient uniquement du texte. A chaque fois ce texte comporte entre 10 et 15 phrases ponctuées (finissant toutes par un point).

Pour chaque cellule de la colonne je désire supprimer les 2 premières phrases (donc 5000 phrases à supprimer). Quelqu'un à t il une idée sachant que toutes les phrases en question sont uniques (aucune phrase commune entre différentes cellules de la colonne)

D'avance merci

Bonjour,

Un essai ...

Ouvrir VBE (ALT+F11) > coller le code dans la feuille où se trouve le texte.

Supposons que c'est la feuille "Feuil1

" ...

Sub Supp2Phrases()
Dim X As Integer
Dim Z As Integer

For X = 1 To 2500
    y = InStr(Cells(X, "A"), ".")        ' trouve la position du premier "."
    Z = InStr(y + 1, Cells(X, "A"), ".")    ' trouve la position du deuxième "."
    Cells(X, "A") = Right(Cells(X, "A"), Len(Cells(X, "A")) - Z - 1)   ' à partir de la droite, ne conserve que le reste du texte
Next X
End Sub

ric

Bonjour Ric

Marche nickel merci

ric

Merci Ric