Function ChercheTrain(sVal As String)
Dim Rng As Range, CelF As Range
Set Rng = Range("H:H,P:P,X:X,AF:AF")
Application.Volatile
'On Error Resume Next
Set CelF = Rng.Find(What:=sVal, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
' si une valeur est trouvée
If Not CelF Is Nothing Then
ChercheTrain = CelF.Offset(0, -6).Value
' Mettre la valeur ainsi que ses formats police et fond de cellule
If CelF.Offset(0, -5).Value = "" Then ChercheTrain = ""
End If
End Function