transfer intersection résultat ré-utilisée transfer sans efacer le premier transfer

Sub Test()
 With Worksheets("Donnée")
    Tabtemp = .Range("A5:C5").Value [COLOR=DarkGreen]'on recupere les donnees[/COLOR]
 End With
 With Worksheets("resultat") [COLOR=DarkGreen]'dans la feuille cible[/COLOR]
  Set MaPlageSem = .Range(.Cells(1, 2), .Cells(1, .Cells(1, 255).End(xlToLeft).Column))
 [COLOR=DarkGreen]'on determine la plage des numeros de Semaine[/COLOR]
    Set MaPlageNum = .Range(.Cells(2, 1), .Cells(.Cells(65536, 1).End(xlUp).Row, 1)) 
'on determine la plage des numeros
   Set C = MaPlageSem.Find(Tabtemp(1, 3))
   [COLOR=DarkGreen] 'dans cette plage on recherche la donnee Semaine[/COLOR]
       If Not C Is Nothing Then ColSem = C.Column[COLOR=DarkGreen]
    'si trouvé on recupere le numero de la colonne[/COLOR]
         Set L = MaPlageNum.Find(Tabtemp(1, 2))[COLOR=DarkGreen] 
    'dans cette plage on recherche la donnee N°[/COLOR]
       If Not L Is Nothing Then NLgn = L.Row[COLOR=DarkGreen] 
    'si trouvé on recupere le numero de la ligne[/COLOR]
               .Cells(NLgn, ColSem) = .Cells(NLgn, ColSem) + Tabtemp(1, 1) [COLOR=DarkGreen]
    'ajoute à la cellule ainsi determinee[/COLOR]
 End With
 
End Sub