Importer une feuille Excel depuis un autre classeur

Sub CheckSheetName()
Const LA_FEUILLE As String = "Activités"
Dim Sh As Worksheet, i&: i = 0
    For Each Sh In Worksheets
        If LA_FEUILLE = Sh.Name Then
            i = i + 1
        End If
    Next Sh
    If i >= 1 Then
        MsgBox "Cette feuille existe déjà", vbCritical, "ATTENTION"
        Exit Sub
    Else
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = LA_FEUILLE
    End If
End Sub

Sub IMPORT()
Dim nom$, WBKSource As Workbook
Application.DisplayAlerts = False
Application.DisplayAlerts = True
 With Application.FileDialog(msoFileDialogOpen)
 .Title = "Choisissez le fichier à analyser"
     .Filters.Clear
     .Filters.Add "Fichier Excel", "*.xls*"
     .AllowMultiSelect = False
         If .Show <> 0 Then
         nom = .SelectedItems(1)
             Set WBKSource = Workbooks.Open(nom)
' je voudrais que si la feuille Activités n'existe pas dans le fichier sélectionné par l'utilisateur une msgbox le lui signale
With WBKSource
    .Sheets("Activités").Copy Before:=ThisWorkbook.Sheets(1)
    .Close False
End With
         Else
         MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
         End If
 End With
Application.DisplayAlerts = True
Sheets("Activités").Select
Range("A5:A2006,D5:D2006,E5:E2006,F5:F2006,H5:H2006,J5:J2006,S5:S2006,U5:U2006,W5:W2006").Select
Selection.Copy
Sheets("ANALYSE EFFECTIF MOYEN").Select
Range("B6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Activités").Select
Range("AI5:AI2006,AK5:AK2006").Select
Selection.Copy
Sheets("ANALYSE EFFECTIF MOYEN").Select
Range("AP6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Activités").Select
Range("AI4").Select
Selection.Copy
Sheets("ANALYSE EFFECTIF MOYEN").Select
Range("AK5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B6").Select
'Message résultat neutralisé pour l'instant
'MsgBox "Pensez à corriger ce résultat en excluant, via les filtres, les salariés exclus du décompte de l'effectif.", vbInformation + vbOKOnly, "RESULTAT IMPORT"
End Sub

Sub CheckSheetName()
Const LA_FEUILLE As String = "Activités"
Dim Sh As Worksheet, i&: i = 0
    For Each Sh In Worksheets
        If LA_FEUILLE = Sh.Name Then
            i = i + 1
        End If
    Next Sh
    If i >= 1 Then
        MsgBox "Cette feuille existe déjà", vbCritical, "ATTENTION"
        Exit Sub
    Else
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = LA_FEUILLE
    End If
End Sub

Sub ENREGISTRER_FEUILLE()

'CREATION NOUVELLE FEUILLE
ONGLET = Range("AG3")
ANNEE = Range("D2")
If ANNEE = "" Then MsgBox "Aucun fichier n'a été importée", , "Enregistrement feuille impossible": Exit Sub
Sheets("ANALYSE EFFECTIF MOYEN").Select
Sheets("ANALYSE EFFECTIF MOYEN").Copy after:=Sheets(2)
Sheets("ANALYSE EFFECTIF MOYEN (2)").Select
Sheets("ANALYSE EFFECTIF MOYEN (2)").Name = ONGLET
MsgBox "L'onglet " & ONGLET & " a été crée" & vbNewLine & vbNewLine & "Merci d'utiliser ce dernier pour toute modification sur l'année " & ANNEE, vbInformation + vbOKOnly, "FEUILLE BIEN ENREGISTREE"
'à ce niveau là, il faudrait une vérif que la feuille créée n'existe déja pas

'DEPLACEMENT DES BOUTONS
Range("B1:B2").Select
Selection.Cut Destination:=Range("AX1")
Range("H1:H2").Select
Selection.Cut Destination:=Range("AY1")
Range("I1:I2").Select
Selection.Cut Destination:=Range("AZ1")
Range("BB1").Select
Selection.Cut Destination:=Range("H2")
Range("B6").Select

'EFFACEMENT GRILLE DE SAISIE
Sheets("ANALYSE EFFECTIF MOYEN").Select
On Error Resume Next
ActiveSheet.ShowAllData
Range("B6:J2006,AK5,AP6:AP2006,AQ6:AQ2006").Select
Selection.Clear
Range("B6").Select
Application.DisplayAlerts = False
Sheets("Activités").Delete
Application.DisplayAlerts = True
End Sub

Const LA_FEUILLE As String = Worksheets("TOTO").Range("AG3").Text