XL 2013 Allègement de 8 macros

Sub EnregConvocs2()      'à modifier toutes les lignes
[B2] = 1
For i = 1 To 4
    Convocation
    [B2] = [B2] + 1
Next i
[B2] = 1
MsgBox "Les 4 convocations sont enregistrées"
End Sub
Sub Convocation()
ActiveSheet.PageSetup.PrintArea = "A1:G" & Range("A" & Rows.Count).End(xlUp).Row 'plage de cellule à enregistrer a adapter
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     "G:\Les Linaigrettes\AG\" & Range("J1") & Range("K1") & Range("F3") & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

Sub EnregConvocs2()      'à modifier toutes les lignes
For i = 1 To 4
    [B2] = i
    Convocation
Next i
[B2] = 1
MsgBox "Les 4 convocations sont enregistrées"
End Sub