Sub CopierTableau()
Dim feuille1 As Worksheet
Dim feuille2 As Worksheet
Dim derniereLigne As Long
Dim i As Long
Dim intervalle As String
Dim debut As Integer
Dim fin As Integer
Dim age As Integer
Dim ligneDest As Long
Set feuille1 = ThisWorkbook.Sheets("Feuille1")
Set feuille2 = ThisWorkbook.Sheets("Feuille2")
derniereLigne = feuille1.Cells(Rows.Count, 1).End(xlUp).Row
ligneDest = 2
For i = 2 To derniereLigne ' Commencer à la ligne 2 pour ignorer l'en-tête
intervalle = feuille1.Range("F" & i).Value
If InStr(intervalle, "-") > 0 Then
debut = Split(intervalle, "-")(0)
fin = Split(intervalle, "-")(1)
For age = debut To fin
feuille2.Cells(ligneDest, "A").Resize(1, 11).Value = feuille1.Cells(i, "A").Resize(1, 11).Value
feuille2.Cells(ligneDest, "F").Value = age
ligneDest = ligneDest + 1
Next age
Else
feuille2.Cells(ligneDest, "A").Resize(1, 11).Value = feuille1.Cells(i, "A").Resize(1, 11).Value
ligneDest = ligneDest + 1
End If
Next i
End Sub