Conditions If...

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