Sub report()
ligne = 2
For n = 2 To Sheets("Tableau_A").Range("A65536").End(xlUp).Row
Set c = Sheets("Tableau_B").Columns("A").Find(Sheets("Tableau_A").Range("B" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets("Tableau_A").Range("A" & n & ":J" & n).Copy Destination:=Sheets("Tableau_C").Cells(ligne, 1)
ligne = ligne + 1
End If
Next n
End Sub