VBA---activer une fonction colonne après colonne.

Sub Macro3()
Sheets(1).Select
Application.ScreenUpdating = False
[M3].Value = ""
[N3].Value = ""
x = Array(13, 14)
For Z = 0 To 1
mecol = IIf(Z = 0, "M", "N")
While Cells(3, x(Z)).Value < 40
For i = 1 To 6
col = x(Z)
Cells(4 + i, col).Formula = ("=RANDBETWEEN(1,11)")
Cells(4 + i, col).Value = Cells(4 + i, col)
Next
Cells(3, x(Z)).Formula = ("=SUM(" & mecol & "5:" & mecol & "10)")
Wend
Next
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...