NoLigne = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Row
NoColonne = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Column
Adresse = Sheets("Feuil1").Cells.Find("Total", LookIn:=xlValues).Address(ReferenceStyle:=xlR1C1)
Application.Goto Reference:=Adresse