Sub MASU()
Dim nbre As Integer, Lig As Integer, Cptr As Integer
Dim criter1 As String, criter2 As String, criter3 As String
Dim i As Long
Dim nome As String, noment As String
Dim L As Integer
Application.ScreenUpdating = False
criter1 = Range("H2").Value
criter2 = Range("F2").Value
criter3 = Range("I2").Value
If criter1 <> "" Then
With Sheets("Feuil2")
nbre = Application.WorksheetFunction.CountIf(Sheets("Feuil2").Range("H2:H1000"), criter1)
If nbre = 1 Then
L = Worksheets("Feuil2").Columns("H:H").Find(criter1, lookat:=xlWhole).Row
Worksheets("Feuil2").Rows(L & ":" & L).Copy Destination:=Worksheets("Feuille1").Cells(2, 1)
Worksheets("Feuille1").Activate
Range("A2").Select
Exit Sub
End If
End With
End If
If criter2 <> "" And criter3 <> "" Then
With Sheets("Feuil2")
nbre = Application.WorksheetFunction.CountIf(Sheets("Feuil2").Range("H2:H1000"), criter2)
If nbre = 0 Then
MsgBox ("Le critère 2 n'a pas été trouvé !"), vbCritical
Worksheets("Feuille1").Activate
Range("A2").Select
Exit Sub
End If
nbre = Application.WorksheetFunction.CountIf(Sheets("Feuil2").Range("i2:i1000"), criter3)
If nbre = 0 Then
MsgBox ("Le critère 3 n'a pas été trouvé !"), vbCritical
Worksheets("Feuille1").Activate
Range("A2").Select
Exit Sub
End If
If nbre <> 1 Then
"C'est ici que je n'arrive pas à écrire le code qui me permettrait de trouver la ligne qui contiendrait les 2 critères"
End If
End If
End Sub