Function chercher(nom As Range, XXX As Range)
Application.ScreenUpdating = False
For Each cellule In Sheets(2).Range("A1:BF56")
If UCase(cellule.Value) = UCase(nom) Then
Select Case XXX.Text
Case "OM"
l = cellule.Row
C = cellule.Column - 2
Case "CP"
l = cellule.Row
C = cellule.Column - 1
Case "TP"
l = cellule.Row + 7
C = cellule.Column - 2
Case "CI"
l = cellule.Row + 7
C = cellule.Column - 1
Case "DM"
l = cellule.Row
C = cellule.Column + 1
Case "PO"
l = cellule.Row + 7
C = cellule.Column + 1
Case "IC"
l = cellule.Row + 7
C = cellule.Column + 2
Case "TS"
l = cellule.Row
C = cellule.Column + 2
End Select
Exit For
End If
Next cellule
chercher = Sheets(2).Cells(l, C)
Application.ScreenUpdating = True
End Function