Problème avec le Range

Bonjour,

Je cherche a créer un bouton forçant la mise a jour d'une base de donnée. Ce bouton se situe sur la feuille 1 de mon classeur et doit mettre à jour la feuille 2 a l'aide de deux macros :

_ Affiche_donnees qui scan le réseau et affiche les adresses des différents fichier sur la feuille 2.

_ TableauRangement qui divise en différentes familles les fichiers en fonction de leur nom.

Le bouton de mise a jour doit permettre de supprimer l'intégralité de la base de donnée puis de relancer les deux macros ci-dessus.

Le problème est que la macro gérant ce bouton bloque sur la définition du Range définissant la zone d'information de la base de donnée.

Sub Mise_a_jour()

    Dim plage As Range
    Set plage = Feuil2.Range(Cells(0, 0), Cells(10000, 5))
    If Application.CountA(plage) <> 0 Then
        plage.Delete
        Call Feuil2.Affiche_donnees
        Call Feuil2.TableauRangement
        Else: Call Feuil2.Affiche_donnees
            Call Feuil2.TableauRangement
    End If

End Sub

Si quelqu'un pense avoir une solution je suis preneur ^^.

Merci d'avance.

PS: je suis un débutant en programmation donc veuillez excuser les probables erreurs

Cells(0,0) n'est pas possible.

La cellule A1 qui est la premiere cellule est Cells(1,1)

Oui je m'en doutais un peu mais c'est la dernière modification que j'ai tenté, c'est déjà corrigé.

J'ai trouver une solution beaucoup plus simple que ce que je cherchais a faire.

Sub Mise_a_jour()

    Feuil2.Cells.Clear
    Call Feuil2.Affiche_donnees
    Call Feuil2.TableauRangement

End Sub