Sub Mult3()
Dim Lignes As Integer, Colonnes As Integer
Dim L As Integer, C As Integer
Lignes = 40 ' Nombre de lignes
Colonnes = 15 ' Nombre de colonnes
For C = 1 To Colonnes ' Pour toutes les lignes
For L = 1 To Lignes ' Pour toutes les colonnes
Cells(L, C) = 3 * (Lignes * (C - 1) + L) ' A demontrer
Next L
Next C
End Sub