Function LigFind(Sht As Worksheet, Col As String, Quoi As String, Optional Partie As Boolean)
Dim VLookAt
' Définit la façon de chercher
If Partie = True Then VLookAt = xlPart Else VLookAt = xlWhole
' Met la ligne trouvée à ZERO
LigFind = 0
' Effectue la recherche
On Error Resume Next
With Sht.Range(Col & ":" & Col)
LigFind = .Find(What:=Quoi, LookIn:=xlValues, [COLOR=blue][B]LookAt:=VLookAt[/B][/COLOR], SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
End With
On Error GoTo 0
End Function