Bonjour,
voici la formule complete :
Dim x As String, y As String, n As String
x = 4
y = 6
Do While y < 21
With Sheets("T")
n = Cells(y, 18).Value
Cells(x, n) = Cells(x, n) + 1
End With
x = x + 1
y = y + 3
Loop
donne le resultat sur 2 lignes aprés la macro s'arrêt et m'affiche ceci...