'rechercher une ligne avec 2 valeurs
'colonnenom : colonne pour la recherche
' £nomf nom de la feuille pour recherche
' valeur1 première valeur à chercher
' valeur2 deuxième valeur
' offset1 offset de la colonne par rapport à la première
' la recherche commence à la première ligne
'Le résultat est mis dans une collection pour eviter les doublons
' la collection est déclarée comme variable publique
Sub rechercheprenom(colonnenom As String, £nomf As String, valeur1 As String, valeur2 As String, offet1 As Byte)
Dim Cel As Range
Dim FirstAddress As String
Dim £data As String
With Worksheets(£nomf)
On Error Resume Next '
With .Range(colonnenom & "1:" & colonnenom & .Range(colonnenom & "65536").End(xlUp).Row)
Set Cel = .Find(valeur1, LookIn:=xlValues, LookAt:=xlWhole)
If Not Cel Is Nothing Then
FirstAddress = Cel.Address
Do
If Cel.Value <> "" Then
If Cel.Offset(0, offet1) = valeur2 Then Coll.Add £data, CStr(£data)
End If
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> FirstAddress
End If
End With
End With
On Error GoTo 0
End Sub