Récupération de nombres

Bonjour
Retourne le total des personnes dans la même cellule

Option Compare Text
Sub Addition()
    Application.ScreenUpdating = False
    Set ValCel = ActiveCell
    ValCel.Replace What:=Chr(10), Replacement:="+", LookAt:=xlPart
    ValCel.Replace What:="Personn.", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="Pers.", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="Pers", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="P", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:=" ", Replacement:="", LookAt:=xlPart
    ActiveCell.Formula = "=" & ValCel
End Sub

Cdlt

Bonjour
Excusez l'incruste

autre manière avec les expressions régulières

Option Explicit
'------------------------
Function extrait_chiffres(ByRef texto As String) As Long
    Dim reg As Object
    Dim extraction As Object
    Dim digit
    
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "(\d)"
    Set extraction = reg.Execute(texto)
    For Each digit In extraction
        extrait_chiffres = extrait_chiffres & (digit.Value)
    Next digit
    Set extraction = Nothing
    Set reg = Nothing
End Function

Michel

A Sertre, je renvoi mon humble procédure, celle-ci n'affiche que les valeurs (ce qui avait été demandé) au lieu du total dans mon précédent post.

Option Compare Text
Sub Epurage()
    Application.ScreenUpdating = False
    Set ValCel = ActiveCell
    ValCel.Replace What:=Chr(10), Replacement:="-", LookAt:=xlPart
    ValCel.Replace What:="Personn.", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="Pers.", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="Pers", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="P", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:=" ", Replacement:="", LookAt:=xlPart
    ValCel.Replace What:="-", Replacement:=Chr(10), LookAt:=xlPart
End Sub

Bonjour michel_m
On voit là la griffe d'un expert, j'ai testé la fonction, mais il retourne "#Valeur". Ai-je loupé quelque chose?
Je reconnais que, l'avantage de ce principe, c'est que tous les textes sont éliminés, quels qu'ils soient. mais bon, il faut maîtriser et c'est loin d'être mon cas.
Bonne journée
Cdlt