Bonjour,
Dans le code de "thisworkbook" tu mets :
Private Sub Workbook_Open()
Call Module1.Macro1
End Sub
et dans le module1 tu mets :
Sub Macro1()
'
' Macro1 Macro
'
'
If Range("C17").Value = 1 Then
Sheets("Compte").Select
Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Echeancier").Select
Range("G4:J4").Select
Selection.Copy
Sheets("Compte").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F9").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("F8:F9"), Type:=xlFillDefault
Range("F8:F9").Select
Range("G8").Select
ActiveCell.FormulaR1C1 = "non"
Range("B1").Select
Selection.Copy
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J9:L9").Select
Application.CutCopyMode = False
Selection.Copy
Range("J8").Select
ActiveSheet.Paste
End If
Ca devrait faire ce que tu veux
Bonne journée.
John
End Sub
Edit : Salut VDAVID