Sub PLAY()
'crée par christophe ROBERT le 16 décembre 2009
bas = [A65000].End(3).Row
dcol = [[COLOR="red"]IV4[/COLOR]].End(xlToLeft).Column [COLOR="red"]- 2[/COLOR]
Range("C5[COLOR="Red"]", Cells(bas, dcol)).[/COLOR]ClearContents
For k = 2 To Feuil4.[A65000].End(3).Row
col = Application.Match(Feuil4.Cells(k, 3), Range("C3", Cells(3, dcol)), 0)
lig = Application.Match(Feuil4.Cells(k, 1), Range("A5:A" & bas), 0)
On Error Resume Next
Cells(lig + 4, col + 2) = Cells(lig + 4, col + 2) + 1
If Err > 0 Then Err.Clear
Next
End Sub