Sub MAJ_Planning()Dim e As Object
Dim p As Object
Dim x As Integer
Dim noTache As Integer
Dim extract As Integer
Set e = ThisWorkbook.Sheets("extract")
Set p = ThisWorkbook.Sheets("planning 2012")
extract = e.Cells(Application.Rows.Count, 1).End(xlUp).Row
For x = 12 To extract
noTache = e.Cells(x, 1)
p.Cells(noTache, 6) = e.Cells(x, 5).Value
p.Cells(noTache, 10) = e.Cells(x, 6).Value
p.Cells(noTache, 12) = e.Cells(x, 7).Value
p.Cells(noTache, 11) = e.Cells(x, 8).Value
Next x
MsgBox ("Le planning a été mis à jour")
End Sub