Conditions If...

Bonjour à tous

Je me fais des noeuds au cerveau en essayant de réadapter la formule macro ci-dessous.
En fait j'aimerai poser des conditions "if" pour l'importation d'une base de données.
-Si la plage "MALQ2" est vide, donc affichage du MsgBox ("Voulez-vous importer la Base de Donnée ori ") suivi de toute la procédure d'importation
-Si la plage "MALQ2" n'est pas vide, alors affichage du MsgBox ("Vous ne pouvez Importer la BASE DE DONNEES ") puis fermeture .....

J'ai recopié le code ci-dessous.
Merci beaucoup de m'aider à résoudre ce casse-tête.

Private Sub Cmd_Import_BDD_Click() 

On Error Resume Next 

With Worksheets("BDD Agents ") 
    Set plage = Range("MALQ2") 
    If Application.CountA(plage) <> 0 Then 

        MsgBox ("Vous ne pouvez Importer la BASE DE DONNEES ") 
        Cancel = True 
        If Application.CountA(plage) = 0 Then 
            MsgBox ("Voulez vous importer la Base de Donnée ori ") 

            Dim Table, derlig 
            With Worksheets("BDD Agents ") 

                'derniere cellule non vide colonne A 
                derlig = .Range("A" & Rows.Count).End(xlUp).Row 
                'mise en memoire des infos 
                 Table = .Range("A2:J" & derlig) 
            End With 
            With Worksheets("BDD Agents ori") 
                'derniere cellule non vide colonne A 
                derlig = .Range("A" & Rows.Count).End(xlUp).Row 
                'si deja vide 
                If derlig = 1 Then 
                     derlig = 2 
                End If 
                'efface zone 
                .Range("A2:J" & derlig).ClearContents 
                'copie infos 
                .Range("A2").Resize(UBound(Table, 1), UBound(Table, 2)) = Table 
            End With 
            MsgBox ("L'importation de la Base de Donnée Q1 s'est terminée correctement.") 
        End If 
    End If 
End With 
End Sub