Sub Init()
Dim i As Long
For i = 1 to Sheets.Count
If Sheets(i).Name <> "Feui3" Or Sheets(i).Name <> "Feuil4" Then Sheets(i).Visible = False
Next i
End Sub
'------------------------------------------------
With Sheets("Log")
.Range("A1").Offset(1, 0).Value
Idem
Idem
End With
With Sheets("Demande avenant PO IEJ")
.Range("B17:F18,B51:F53,B59:F61,B65:F67").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
End With