Sub Essai()
Dim Code As String, DerLigne As Long, Ligne As Long
With ThisWorkbook.Worksheets("Formulaire")
Code = .Range("B5").Value & .Range("D5").Value
End With
With ThisWorkbook.Worksheets("Données")
DerLigne = .Range("C65536").End(xlUp).Row
If Application.WorksheetFunction.CountIf(.Range("C2:C" & DerLigne), Code) > 0 Then
.Activate
Ligne = Application.WorksheetFunction.Match(Code, .Range("C2:C" & DerLigne), 0)
.Range("D" & Ligne + 1).Select
End If
End With
End Sub