Sub test()
Dim L, C, K, i, j, F1 As Worksheet, F2 As Worksheet
Set F1 = Worksheets("Sujets 2012 - global")
Set F2 = Worksheets("Résultats mensuel par projet")
L = F1.Range("A3").End(xlDown).Row
C = F1.Range("S2").End(xlToRight).Column
F2.Range("B3:M10000").ClearContents
For i = 3 To L
K = K + 1
F2.Cells(K + 2, 2) = F1.Cells(i, 1)
F2.Cells(K + 2, 9) = F1.Cells(i, 8)
F2.Cells(K + 2, 11) = F1.Cells(i, 10)
F2.Cells(K + 2, 13) = F1.Cells(i, 14)
For j = 19 To C
K = K + 1
F2.Cells(K + 2, 12) = F1.Cells(2, j)
F2.Cells(K + 2, 13) = F1.Cells(i, j)
F2.Cells(K + 2, 11) = F1.Cells(i, 10)
Next j
Next i
End Sub