sub ListePage()
Application.ScreenUpdating = False
With Sheets("HOME").ListObjects("Devoirs") 'je vide le tableau devoirs
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
Sheets("HOME").Select 'je selectionne la feuille dashboard
Dim LastR As Long
Dim subAss As String
Dim valCell As String
Dim CyViA As String
Dim Trouve As Range
For i = 7 To Sheets.Count
subAdd = Sheets(i).Name & "!j2"
valCell = Sheets(i).Range("j2").Value
LastR = Derniere_Ligne(ActiveSheet) + 1
ActiveSheet.Hyperlinks.Add Anchor:=Range("E" & LastR), Address:="", SubAddress:=subAdd, TextToDisplay:=valCell 'nom de page + lien
Range("E" & LastR).Value = Sheets(i).Range("J2").Value 'numéro d opé
Range("F" & LastR).Value = Sheets(i).Range("C2").Value 'titre d opé
Range("H" & LastR).Value = Sheets(i).Range("G52").Value 'pourcentage
Range("I" & LastR).Value = Sheets(i).Range("L5").Value 'annonceur
Range("J" & LastR).Value = Sheets(i).Range("L6").Value 'marque
Range("K" & LastR).Value = Sheets(i).Range("L7").Value 'type d'opé
Range("L" & LastR).Value = Sheets(i).Range("L8").Value 'mode de participation
Range("M" & LastR).Value = Sheets(i).Range("L9").Value 'Iframe
Range("N" & LastR).Value = Sheets(i).Range("L10").Value 'URL
Range("O" & LastR).Value = Sheets(i).Range("L11").Value 'Hébergement
Range("P" & LastR).Value = Sheets(i).Range("L12").Value 'resp. commercial
Range("Q" & LastR).Value = Sheets(i).Range("L13").Value 'chef de projet
Range("R" & LastR).Value = Sheets(i).Range("L14").Value 'chargé d'opé
Range("S" & LastR).Value = Sheets(i).Range("L15").Value 'Nb de jour estimé
Range("T" & LastR).Value = Sheets(i).Range("E52").Value 'Nb jour réél
Range("U" & LastR).Value = Sheets(i).Range("E28").Value 'Date de début
Range("y" & LastR).Value = Sheets(i).Range("E51").Value 'Date de fin
DLig = 28 + Application.WorksheetFunction.CountIf(Sheets(i).Range("G29:G51"), True)
Range("V" & LastR).Value = Sheets(i).Cells(Trouve.Row, 7).Value
Next 'Feuille Suivante
Application.ScreenUpdating = True
End Sub
Function Derniere_Ligne(Sh As Worksheet) As Long
Derniere_Ligne = Sh.Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
End Function