Optimisation de selection de feuille (VBA)

Bonjour à tous,

J'ai appris il y a quelques temps à faire une base de données simple avec les boutons "ajouter", "modifier", "effacer" et "afficher". Le problème est que j'ai du la gonfler et avec le nombre d'entrées grossissant, j'ai du déplacer des entrées sur des feuilles différentes pour rester lisible. Le résultat est que j'obtiens un fichier Excel avec 7 feuilles contenant chacune environ 15 entrées...seul moyen pour que cette BDD soit lisible.
Mon bouton ajouter fonctionne parfaitement. Lorsque j'ajoute un matériau (ma base de données concerne les matériaux de construction), les données sont rapidement entrées à l'aide de formulaires puis dispatchées dans les feuilles avec un ID commun identifiant le matériau en question.
Le problème vient avec les 3 autres options...

Pour le bouton modifier, mon code VBA va chercher les informations concernant l'ID du matériau entré pour pré-remplir des formulaire. Puis, une fois les données modifiées, les données sont remplacées dans les cellules. Le problème est que c'est loooonggg pour une base de données ne contenant que peu de données. Alors j'imagine quand je vais en rentrer des centaines...

Le problème vient de mon code. Comme j'ai de données d'entrées d'un seul matériau sur plusieurs feuilles, je dois les sélectionner pour faire les extraction, les changements ou bien la suppression. Mais n'étant qu'un novice, je ne sais vraiment pas comment optimiser la chose...

J'ai mis en exemple le code concernant la suppression d'un matériau: je rentre un ID et le code va chercher toutes les lignes des 7 feuilles contenant cet ID et va les effacer.
Un exemple de comment je pourrais changer ce code pour contourner cette sélection de feuille qui raaaalonge le temps d'exécution en vu de l'évolution de ma BDD ? J'appliquerai cette technique à mes autres fonctions (modifier, afficher).

Je ne demande pas un cours mais si la personne me mettant un exemple pouvais en même temps m'expliquer ce choix, ce serai sympa. J'aime comprendre ce que je fais ^^

Merci d'avance pour votre aide !!! :)

Private Sub Oui_Click()

Dim nomID As Integer
nomID = ID.Value
Dim MAT As Integer
For MAT = 3 To 1000

Feuil01.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil02.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil03.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil04.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil05.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil06.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If
Feuil07.Select
    If Cells(MAT, 1) = nomID Then
        Rows(MAT).delete
    End If

Next MAT

Unload Supression
Feuil00.Select

End Sub