Sub Macro1()
Dim s As Workbook 'déclare la variable s (classeur Source)
Dim b As Workbook 'déclare la variable b (classeur Bilan)
Dim os As Object 'déclare la variable os (Onglet Source)
Dim no As String 'déclare la variable no (Nom Onglet)
Dim ob As Object 'déclare la variable ob (Onglet Bilan)
Dim ligne As Byte 'déclare la variable ligne
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
Set s = Workbooks("source.xls") 'définit la classeur s
Set b = ThisWorkbook 'définit la classeur b
Set os = s.Sheets("Feuil1") 'définit l'onglet os
For ligne = 2 To 4 'boucle sur les 4 lignes
no = os.Cells(ligne, 1).Value 'définit le nom de l'onglet no
Set ob = b.Sheets(no) 'définit l'onglet ob
Set dest = ob.Cells(ob.Columns(1).Find(os.Range("A1").Value, , xlValues, xlWhole).Row, 2)
os.Range(os.Cells(ligne, 2), os.Cells(ligne, 4)).Copy dest 'copie et colle la plage dans dest
Next 'prochaine ligne de la boucle
End Sub