bonjour Babe , bonjour Rénato
tu peux tester cette macro qui extrait les phrases en fonction de la ponctuation "." et ":" .
le texte initial est dans la Cellule A1 et les phrases s'affichent dans la premiere colonne , à partir de la Cellule A2
Sub extractionPhrases()
Dim j As Integer
Dim i As Long, Valeur1 As Long, Valeur2 As Long
Dim Cible As Long
Dim Texte As String
j = 1
Texte = Range("A1")
For i = 1 To Len(Texte)
Valeur1 = InStr(i, Texte, ".")
Valeur2 = InStr(i, Texte, ":")
If Valeur1 < Valeur2 Then Cible = Valeur1 Else Cible = Valeur2
If Valeur2 = 0 And InStr(1, Texte, ":") > 0 Then Cible = Valeur1
j = j + 1
Cells(j, 1) = Mid(Texte, i, Cible - i + 1)
i = Cible
Next i
End Sub
il existe sans doute d'autres solutions mieux adaptées
bon après midi
MichelXld