Automatiser les sauvegardes lorsque je renseigne Marche2017 ...

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom & ".xlsx"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valzoum As Integer
 Dim ecran
 Valzoum = ActiveWindow.Zoom
 Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 Shapes("CheckBox1").Left = ecran.Left + 1300
 Shapes("CheckBox1").Top = ecran.Top + 300
 End With
End Sub

Else
'on enregistre en pdf
ActiveSheet.PageSetup.PrintArea = "A1:J" & Range("J" & Rows.Count).End(xlUp).Row 'plage de cellule à enregistrer
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ThisWorkbook.Path & "\" & nom & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    End If
End If
End Sub