Sub Recherche()
Dim Trouve As Range, PlageDeRecherche As Range
Dim AdresseTrouvee As String, Onglet_Recherche As String
Dim LigneValeurtrouvee
Dim i As Double, nbligne As Double
nbligne = Application.CountA(Range("A:A"))
For i = 2 To nbligne
Onglet_Recherche = Worksheets("Saisies").Range("A" & i)
Set PlageDeRecherche = Worksheets(Onglet_Recherche).Columns(2)
LigneValeurtrouvee = Application.Match(Worksheets("Saisies").Range("B" & i), PlageDeRecherche, 0)
If Not IsError(LigneValeurtrouvee) Then
Worksheets("Saisies").Select
Worksheets("Saisies").Range("C" & i & ":U" & i).Select
Selection.Copy
Worksheets(Onglet_Recherche).Select
Worksheets(Onglet_Recherche).Range("C" & LigneValeurtrouvee).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Set PlageDeRecherche = Nothing
Set LigneValeurtrouvee = Nothing
Next i
End Sub