Public Function getWordAdress(ByVal sExpression As String, ByVal sColumnLetter As String, Optional ByVal bPartial As Boolean = False,  Optional ByVal bSelectResult As Boolean = False,  Optional vsSheetName  As Variant) As Integer
'   sExpression      mot(s) ou partie de mot à chercher
'    sColumnLetter   lettre de la colonne dans laquelle chercher
'   bPartial        choix sur le mot comlet ou partie du  mot
'   bSelectResult   sélectionner la cellule de  la première occurence trouvée
'   vsSheetName      nom de la feuille dans laquelle cherche, celle active par défaut
'   RETURN          numéro de la ligne de la première occurence  trouvée
    Dim iColStop    As Integer
    Dim i           As Integer
    
    'selection  feuille
    If Not IsMissing(vsSheetName) Then Sheets(vsSheetName).Select
    
    'dernière cellule
    iColStop = Range(sColumnLetter & "65536").End(xlUp).Row
    
    If bPartial Then
        For i = 1 To iColStop
            If Cells(i, sColumnLetter) Like "*" & sExpression & "*" Then
                getWordAdress = i
                If bSelectResult Then Cells(i,  sColumnLetter).Select
                Exit For
            End If
        Next i
    Else
        For i = 1 To iColStop
            If Cells(i, sColumnLetter) = sExpression Then
                getWordAdress = i
                If bSelectResult Then Cells(i,  sColumnLetter).Select
                Exit For
            End If
        Next i
    End If
End Function