Dim CelNLot As Range
CelNLot = MonOnglet.Range("H2:H67").Find(Left(MaCellule,3), lookat:=xlWhole)
CelNLot = Sheets("Réservation").Range("H2:H67").Find([COLOR=red]Left(Sheets("Réservation").Range("H2:H67"), 3)[/COLOR], lookat:=xlPart)
With Sheets("Réservation")
CelNLot = .Range("H2:H67").Find("Zmu", lookat:=xlPart))
End With
With Sheets("Réservation")
CelNLot = .Range("H2:H67").Find(Left(.Range("B2"), 3), lookat:=xlPart)
End With