Excel vba probleme rechercher puis additionne

Bonjour,

je recois toutes les semaines un fichier avec les salaires, et je voudrais faire une macro qui me centralise deux semaines en une seule page.
je narrive pas a additionner les salaires d un meme salarie sur la 3e page, le but etant de selectionner un nom dans la 2e semaine et de le rechercher dans la page consolidatrice, sil ne le trouve pas ca ajoute une ligne avec ses infos a la fin, sil le trouve il faut additionner les salaires

jai ecrit ca pour le moment mais ca ne semble pas fonctionner

  Sub test2() 
Worksheets("W1").Activate 

Dim i As Integer 
Range("A7", Range("A7").End(xlDown)).Select 

For i = 1 To Selection.Rows.Count 
Sheets("W1").Activate 
Rows(i + 6).Copy 
Sheets("Fortnight").Select 
Range("A" & i + 6).Select 

ActiveSheet.Paste 
Application.CutCopyMode = False 

Next i 
Call r13 

End Sub 


Sub r13() 
Dim celluletrouvee As Range 
Dim employee As String 
Dim i, ligne As Integer 

Worksheets("W2").Activate 
Range("A7", Range("A7").End(xlDown)).Select 
For i = 1 To Selection.Rows.Count 


employee = Worksheets("W2").Cells(i, 1).Value 

Worksheets("Fortnight").Activate 

Range("A7", Range("A7").End(xlDown)).Select 
Set celluletrouvee = Selection.Find(employee, lookat:=xlWhole) 

If celluletrouvee Is Nothing Then 
Sheets("W2").Activate 
Rows(i).Copy 
Sheets("Fortnight").Select 
Rows(Selection.Rows.Count + 1).Select 

ActiveSheet.Paste 
Application.CutCopyMode = False 

Else 
ligne = celluletrouvee.Row 
Worksheets("Fortnight").Cells(ligne, 5).Value = Worksheets("Fortnight").Cells(ligne, 5).Value + Worksheets("W2").Cells(i, 5).Value 
Worksheets("Fortnight").Cells(ligne, 6).Value = Worksheets("Fortnight").Cells(ligne, 5).Value + Worksheets("W2").Cells(i, 6).Value 
Worksheets("Fortnight").Cells(ligne, 7).Value = Worksheets("Fortnight").Cells(ligne, 5).Value + Worksheets("W2").Cells(i, 7).Value 
Worksheets("Fortnight").Cells(ligne, 8).Value = Worksheets("Fortnight").Cells(ligne, 5).Value + Worksheets("W2").Cells(i, 8).Value 
End If 
Next i 

End Sub 

Pour plus de details,

le premier nom disponible se trouve en A7, les donnees que je veux sommer au cas ou on trouve le meme salarie sur les deux semaines sont en colonne 5,6,7 et 8.

Si quelqu un peut me dire ou je me trompe, ce serait vmt tres coool!!

Merci d'avance