Sub CopieValeur()
NoMois = Month([A7])
For i = 1 To 10
[Matrice].Cells(i, NoMois) = [Mesures].Cells(3 * i - 1, 1)
Next i
End Sub
Température Minimale Extrême (Tnn) | |
-0,7° | le 15 févr |
Bonjour, salut Hervé62 et Sylvanu
Ma solution par macro...
A+ François