[VBA Excel] SOS Somme si 3 critères

Bonjour à tous !

SOS !
Cela fait 1 semaine que je me prend la tête sur 1 macro Excel.
Je veux automatiser un outils suivi projet qui me permettra de suivre les frais de projets divers.
Je dispose de 2 fichiers excel:
* Outils suivi projet
* Suivi frais

1 fichier "suivi frais" est saisi par 1 collaborateur, voilà sa composition:
1 tableau croisé dynamique avec 3 menus déroulant :
* Nom projet (Administratif, Projet 1, Projet 2) Colonne A
* Catégorie de dépense (Frais déplacement, Frais hôtel, Divers) Col B
* Mois Col C

Projet (A4) Catégorie dépense (B4) mois (C4)
Projet 1 (A5) Frais deplacement (B5) le montant à exporter (C5)

1 fois ce fichier rempli, je veux importer automatiquement à l'aide d'1 macro (ou d'1 fonction si cé possible...) les montants de Frais déplacement, Frais hôtel et Divers dans les cellules excel du fichier : "Outil suivi projet" si le nom projet (A5 "Suivi frais") = nom projet (A1 "Outil suivi projet") et si (B5 "Suivi frais" = A6 "Outil suivi projet") et si (C5 "suivi frais"= F5 "Outil suivi projet")

Composition du fichier:
1 tableau avec :
* Colonne A : Frais
3 lignes : Frais déplacement (L1) Frais hôtel (L2) Divers (L3)
* Colonne B: Mois (Montant par mois)
Cellule B1 : le montant Frais déplacement de "suivi frais" que je veux omporter !

Nom projet (A1)

Frais (A4) mois (F5)
Frais déplacement (A6) Montant à importer (F6)

Voilà le code que j'ai commençé :

Sub xxl()
Application.Workbooks("Outil suivi projet").Activate
Range("A1").Select
cellule1 = Range("A1").Value 'Nom projet

Application.Workbooks("suivi frais").Activate
If cellule1 = Range("A5").Value And Range("C4").Value = "janvier-06" Then
cellule2 = Range("C8").Value
Application.Workbooks("Outil suivi projet_Rev07").Activate
Range("F6").Value = cellule2
End If
If cellule1 = Range("A9").Value And Range("C4").Value = "janvier-06" Then
cellule2 = Range("C11").Value
Application.Workbooks("Outil suivi projet").Activate
Range("F6").Value = cellule2
End If
If cellule1 = Range("A12").Value And Range("C4").Value = "janvier-06" Then
cellule2 = Range("C14").Value
Application.Workbooks("Outil suivi projet_Rev07").Activate
Range("F6").Value = cellule2
End If

Application.Workbooks("exemple suivi frais").Activate
If cellule1 = Range("A5").Value And Range("D4").Value = "février-06" Then
cellule2 = Range("D8").Value
Application.Workbooks("Outil suivi projet_Rev07").Activate
Range("I6").Value = cellule2
End If
If cellule1 = Range("A9").Value And Range("D4").Value = "février-06" Then
cellule2 = Range("D11").Value
Application.Workbooks("Outil suivi projet_Rev07").Activate
Range("I6").Value = cellule2
End If
If cellule1 = Range("A12").Value And Range("D4").Value = "février-06" Then
cellule2 = Range("D14").Value
Application.Workbooks("Outil suivi projet_Rev07").Activate
Range("I6").Value = cellule2
End If
End Sub

Voilà, je ne suis pas sûr de mon code, les montants ne s'importent pas, il y a avé 1 problème de sélection au début, je les ai résolus mé les montants ne s'importent toujours pas !

Si quelqu'un peut me venir en aide ? Merci!