Sub bilan()
Dim dernLigne As Integer
'Pour chacune des feuilles
For Each sh In Sheets
'On assigne à dernLigne le num de la dernière ligne de la feuille "Planning"
dernLigne = Sheets("Planning").Range("A65536").End(xlUp).Row
'Si la feuille est différente de la feuille "Planning" alors
If sh.Name <> "Planning" Then
' k =0 équivaut au premier tableau, k=1 au second
For k = 0 To 1
'de la ligne 10 à la dernière ligne
For i = 10 To sh.Range("C65536").Offset(0, k * 5).End(xlUp).Row
'On recopie les valeurs dans la feuille "Planning"
Sheets("Planning").Range("A" & dernLigne).Value = sh.Range("C" & i).Value
Sheets("Planning").Range("A" & dernLigne).Offset(0, 1).Value = sh.Range("C8").Value
Sheets("Planning").Range("A" & dernLigne).Offset(0, 2).Value = sh.Range("D" & i).Offset(0, k * 5).Value
Sheets("Planning").Range("A" & dernLigne).Offset(0, 3).Value = sh.Range("E" & i).Offset(0, k * 5).Value
'On incrémente le numéro de la dernière ligne après avoir recopié chaque tâche
dernLigne = dernLigne + 1
Next i
Next k
End If
Next sh
End Sub