Bonjour Elodie63200, Xmenpl , le forum,
Un autre essai....
Sub SAISIE()
Dim ListObj As ListObject, Sh As Worksheet, ws As Worksheet, j As Long, i As Long
Set ws = Sheets("Saisie des données")
dl = ws.Range("A" & Rows.Count).End(xlUp).Row
Set Sh = Sheets("Résultat")
Set ListObj = Sh.ListObjects("Tableau2")
j = Sh.Cells(Rows.Count, 1).End(xlUp).Row
i = 3
Do While i <= dl
With ListObj
Sh.Cells(j, 1) = ws.Range("B1")
Sh.Cells(j, 2) = ws.Range("B2")
Sh.Cells(j, 3) = ws.Range("B" & i)
Sh.Cells(j, 4) = ws.Range("B" & i + 1)
Sh.Cells(j, 5) = ws.Range("B" & i + 2)
Sh.Cells(j, 6) = ws.Range("B" & i + 3)
Sh.Cells(j, 7) = ws.Range("B" & i + 4)
.ListRows.Add: j = Sh.Cells(Rows.Count, 1).End(xlUp).Row
End With
i = i + 5
Loop
MsgBox "Projet enregistré"
End Sub
Cordialement,