XL 2010 Executer macro sur onglet actuel et pas un nom d'onglet défini

[dadoudada]

Bonjour,

J'ai une question tres stupide mais dont je n'arrive pas a trouver la réponse, j'ai une macro qui s'execute en fonction du nom de la feuille/onglet, et j'aimerais qu'elle s'execute peu importe le nom de la feuille (donc ActiveSheet j'imagine mais je n'ai pas réussi a trouver la syntaxe correcte)

Voici la macro et la partie qu'il faudrait donc changer en rouge pour que la macro s'éxecute sur la feuille qui est actuellement utilisée:

Sub CRENEAUX()
Dim LR As Long, L As Long
Application.ScreenUpdating = False
With [COLOR=rgb(184, 49, 47)][B]Worksheets("Sheet0")[/B][/COLOR]
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
    .UsedRange.Borders.LineStyle = xlNone
    For L = 1 To LR
        If .Cells(L, 1) & .Cells(L, 2) & .Cells(L, 3) <> .Cells(L, 1).Offset(1) & .Cells(L, 2).Offset(1) & .Cells(L, 3).Offset(1) Then
            With .Cells(L, 1).Resize(, 29).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThick
            End With
        End If
    Next L
End With
Application.ScreenUpdating = True
End Sub

 

[Compte Supprimé 979]

Bonjour

Heuuu

With ActiveSheet
' Code
End With

@+