Re : Recherche avec Boucle
Merci Modeste, après une legere modification ça marche parfaitement.
Sub SearchTotal()
Dim Lg As Long
Dim Total As Range
Lg = ActiveCell.Row
Set Total = Range("D" & Lg & ":D1510").Find("Total", LookIn:=xlValues, lookat:=xlWhole)
If Total Is Nothing...