Sub dridriboulot()
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = ThisWorkbook.Sheets("Entreprise")
Set WS2 = ThisWorkbook.Sheets("donneesPanel")
Dim IdxNom As Integer, IdxPanel As Integer, Annee As Integer
IdxNom = 2: IdxPanel = 1
While WS1.Cells(IdxNom, 4) <> 0
For Annee = 1 To 7
IdxPanel = IdxPanel + 1
WS2.Cells(IdxPanel, 1) = WS1.Cells(IdxNom, 4)
WS2.Cells(IdxPanel, 2) = 2008 + Annee
Next
IdxNom = IdxNom + 1
Wend
End Sub