Sub test()
With Worksheets(1)
For i = [COLOR=Red]1[/COLOR] To Worksheets.Count
Z = Worksheets(i).Name
If Z Like "Feuille1" Then
.Cells(9 + i, 1) = Z
.Cells(9 + i, 2).Formula = "=" & Z & "!A55"
.Cells(9 + i, 3).Formula = "=" & Z & "!A53"
.Cells(9 + i, 4).FormulaLocal = "=SOMME(" & Z & "!A41:A45)"
ElseIf Z <> "Feuille1" Then
.Cells(9 + i, 1) = Z
.Cells(9 + i, 5).Formula = "=" & Z & "!J3"
End If
Next i
End With
End Sub