Sub tableau(case1, colonne)
'
' tableau Macro
' Macro enregistrée le 04/02/2010 par T0115286
'
derligne = 2
For i = 2 To Sheets.Count
Sheets(i).Select
Sheets(1).Range(colonne & derligne).Value = Range(case1).Value
derligne = derligne + 1
Next
End Sub
Sub main()
tableau "B2", "C"
'
End Sub