Réduire la macro sur la feuille active

bonjour à tous,

J'ai un classeur avec plusieurs feuilles.

Sur ce classeur, j'execute une macro avec recherche sur plusieurs celulles que je lance depuis un bouton.

De manière à gagner en rapidité, j'aimerais ajouter une ligne au début de mon code pour réduire l'execution de la macro uniquement sur la feuille en cours et non sur tout le classeur.

Quelqu'un aurait une idée??

Salut le forum

Cedric74 a écrit :

Quelqu'un aurait une idée??

Oui, merci de joindre ton code, ca ira beaucoup mieux pour t'aider

Mytå

Le voila...

Sub test()
ActiveWorkbook.Save     'sauvegarde le classeur

Dim Lg%, Cel As Range
Lg = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = True
    For Each Cel In Range("d4:d" & Lg)
        If Cel = "--" Then
            'Cel.Interior.ColorIndex = 6 'pour test
            Cel = ActiveWorkbook.BuiltinDocumentProperties(12)
        End If
    Next Cel

If ActiveSheet.Range("S7") < 1 Then
    MsgBox ("!!ATTENTION!!La maintenance de cette appareil n'est pas terminée")
End If

' ActiveWorkbook.Close       'ferme le classeur
End Sub

Public Function NomUtilisateur()
    NomUtilisateur = Environ("Username")
End Function