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