Public Function CinqBlancs(Plg As Range) As String
Application.Volatile
Dim C As Range, i&, Res$
For Each C In Plg
For i = 1 To Len(C.Value)
If Mid(C.Value, i, 5) = " " Then
If C.Characters(i + 5, 1).Text <> " " Then Res = Res & C.Characters(i + 5, 1).Text & "_" & i + 5 & " caractère - "
End If
Next i
Next C
Res = Left(Res, Len(Res) - 3)
CinqBlancs = Res
End Function