Sub Score2()
Dim a As Range
Application.Calculation = xlCalculationManual 'evite le recalcul des formules
For Each a In Range("D3:D4,D7:D8,D11:D12,D15:D16,D19:D20,D23:D24,D27:D28,D31:D32,G5:G6,G13:G14,G21:G22,G29:G30,J9:J10,J17:J18,J25:J26,M17:M18").Areas
Do
a = "=RANDBETWEEN(0,6)"
Loop While a(1) = a(2) 'evite l'égalité
a = a.Value 'supprime les formules
Next
Application.Calculation = xlCalculationAutomatic
End Sub