si j'ai bien compris !!!!!!!!!!!!!!!!!


na=0
nb=0
nc=0

For i = 1 To msfg1.Rows - 1
if msfg1.TextMatrix(i, 6)="A" then na=na+1
if msfg1.TextMatrix(i, 6)="B" then nb=nb+1