Amélioration routine

Bonjour

Je sollicite votre aide pour le sujet suivant

en effet je souhaitera que le code suivant s'active pour tous les onglet du classeur commençant par 2015

Bien cordialement

Sub traitSBUF()

Dim derlig As Integer, i As Integer

Dim ws As Worksheet

For Each ws In Worksheets

ws.Select

derlig = Range("L" & Rows.Count).End(xlUp).Row

For i = 1 To derlig

If Cells(i, 12).Value = "SBUF" Then

If Cells(i, 11).Value = "" Then

Cells(i, 11).Value = Right(Cells(i, 13).Value, 2)

End If

End If

Next i

Next ws

End Sub

Bonjour,

sans essayer ta fonction mais en rajoutant juste le contrôle sur le nom de la feuille ...

Sub traitSBUF()
Dim derlig As Integer, i As Integer
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name Like "2005*" Then
        derlig = ws.Range("L" & Rows.Count).End(xlUp).Row
        For i = 1 To derlig
            If ws.Cells(i, 12).Value = "SBUF" Then
                If ws.Cells(i, 11).Value = "" Then
                    ws.Cells(i, 11).Value = Right(ws.Cells(i, 13).Value, 2)
                End If
            End If
        Next i
    End If
Next ws

End Sub

impeccable

Merci Steelson

bien cordialement