VBA - recherche entre onglets sous conditions

Bonsoir les professionnels de l'informatique,

Je suis débutant en VBA et je cherche à faire quelque chose qui doit être simple, mais trop dur pour moi.

Je cherche à afficher dans l'onglet synthèse, des données des deux autres onglets, selon le mois.

Ex, si le mois est 31/01/2011, je souhaiterais obtenir les données des deux autres onglets (ex : onglet A et B) dans l'onglet synthèse.

J'ai commencé la programmation et essayé bcp de chose. Le problème c'est que le programme est trop long. Je ne sais pas comment raccourcir la procédure.

Pouvez vous m'aider SVP

Sub MacroTri()

If "Mois" = Workbook("Classeur1").Sheets("BanqueA").Range("B1") Then

Sheets("BanqueA").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

ElseIf "Mois" = Workbook("Classeur1").Sheets("BanqueA").Range("C2") Then

Sheets("BanqueA").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste
'.
'.
'.

End If

End Sub