Discussion :

[gabi75]

Merci les amis, j'ai réussi à le faire marcher.
J'aurais une question tout de même, comment faire pour que la fonction recherche cherche non pas l'avant dernier mot "Total" mais celui d'avant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set plage = Range("B5:" & Cells(Rows.Count, 2).End(xlUp).Offset(-1, 0).Address)
    'on cherche le mot Total
    Set c = plage.Find("Total", LookIn:=xlValues, lookat:=xlPart, searchdirection:=xlPrevious)
    'Si trouvé on garde la valeur de la cellule a droite
    If Not c Is Nothing Then intValeur = c.Offset(0, 2).Value

J'ai bien essayé de mettre un "-2" à la place du "-1" comme paramètre de la méthode offset mais sa ne marche pas.

[gabi75]

C'est bon, j'ai réussi à obtenir ce que je voulais.

Merci pour votre aide elle fût très précieuse