Public Sub Search_In_BD()
Set Ws_Source = Worksheets("mafeuille")
Set Ws_Cible = Worksheets("BD")
With Ws_Source
Str_Search = .Cells(1, 5) & "!" & .Cells(4, 5) & "!" & .Cells(1, 2)
End With
With Ws_Cible
DerLgn = .Cells(.Rows.Count, 3).End(xlUp).Row
DerCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
Tab_BD = .Range(.Cells(1, 1), .Cells(DerLgn, DerCol)).Value
End With
For L = 2 To UBound(Tab_BD, 1)
Str_Compare = Tab_BD(L, 3) & "!" & Tab_BD(L, 18) & "!" & Tab_BD(L, 19)
If Str_Compare = Str_Search Then
Msg = "Ligne trouvée ligne : " & L
Exit For
Else
Msg = "Ligne non trouvée"
End If
Next L
MsgBox Msg
End Sub