je vais essayer peux tu me dire pourquoi la ligne suivante ne fonctionne pas
Dim Cellule As Range
ValeurCherchee = Range("Location!b6").Value
Range("C3:bb3").Select
Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValue, lookat:=xlWhole).Select
If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select
Selection = ActiveCell
merci