MacroSauv Macro
Range("A1:K53").Select
Range("K1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"Demande d'inscription et de réinscription." & Range("N7") _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
2-
Sub MacroCE1()
MacroCE1 Macro
Sheets("2APG").Select
Application.ScreenUpdating = False
DL = 1 + Range("B65500").End(xlUp).Row
Cells(DL, "B").FormulaLocal = "=Formulaire!C9"
Cells(DL, "C").FormulaLocal = "=Formulaire!H9"
Cells(DL, "D").FormulaLocal = "=Formulaire!I15"
Range("B" & DL & ":D" & DL) = Range("B" & DL & ":D" & DL).Value
End Sub