bonjour,
tiens a adapter, j'ai considéré que tes question étaient en colonne H et pour chaque bonne réponse tu a un VRAI en colonne I..
MsgBox Format(Application.WorksheetFunction.CountIf(Feuil1.Range("I:I"), True) / Application.WorksheetFunction.CountA(Feuil1.Range("H:H")), "00.0 %")