Bonjour, alors voici comment se présente mon problème

J'ai un certains nombres de villes (une ville=une feuille) qui contiennent des données. Ce que je veux réaliser, c'est de créer une table dans laquelle:
-En B2, je fais une liste déroulante contenant toutes les villes
-En B3, j'ai une liste déroulante contenant des moyens de paiements
-En B4, j'ai la date à rentrer manuellement (bien sur, circonscrit entre les dates de l'année, par exemple 2016)
-En B5, je rentre le montant à imputer
En bas je crée un bouton "Valider"
Ce qui doit se passer, c'est que la validation doit rechercher exactement toutes les informations énumérer si haut et les loger exactement dans la céllule qui correspond
J'ai écrit ça, mais ça ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Valider()
Worksheets(Range("B2").Value).Select
A = activeworksheet.Range("I5:N5").Find(Range("Paiement").Value).Select
B = activeworksheet.Range("A:A").Find(Range("B4").Value).Select
Range("A1").Offset(A.Row - 1, B.Column - 1).Value = ("B5")
End Sub
Merci d'avance