Sub MaMacro()
Application.ScreenUpdating = False
Dim I As Integer
ActiveWorkbook.Worksheets(1).Select
ActiveSheet.Range("A2").CurrentRegion.ClearContents
For I = 2 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("A" & I).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1", _
TextToDisplay:=Worksheets(I).Name
ActiveSheet.Range("B" & I) = Worksheets(I).Range("C4")
ActiveSheet.Range("C" & I) = Worksheets(I).Range("F4")
ActiveSheet.Range("D" & I) = Worksheets(I).Range("C5")
ActiveSheet.Range("E" & I) = Worksheets(I).Range("F5")
ActiveSheet.Range("F" & I) = Worksheets(I).Range("C6")
ActiveSheet.Range("G" & I) = Worksheets(I).Range("C7")
ActiveSheet.Range("H" & I) = Worksheets(I).Range("C8")
ActiveSheet.Range("I" & I) = Worksheets(I).Range("k18")
ActiveSheet.Range("J" & I) = Worksheets(I).Range("k38")
ActiveSheet.Range("K" & I) = Worksheets(I).Range("k76")
Next
Cancel = True
' copie des données dans la feuille synthèse
ActiveWorkbook.Worksheets(1).Select
Nb_Lignes = Range("A200").End(xlUp).Row
Range("A2:K" & Nb_Lignes).Copy
MsgBox Nb_Lignes
'Selection.Copy
Sheets("Synthèse").Select
'Selection.ClearContents
Range("B3").Select
ActiveSheet.Paste
End Sub