XL 2010 macro sur toutes les feilles sauf

Sub copier()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Recapitulatif" And ws.Name <> "Modele briefing" And ws.Name <> "TBL BORD" Then
            Sheets("TBL BORD").Range("K4:K23").Copy 'si la feuille à copier est TBL BORD
            ws.Range("J4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
'            ws.Range("K2").Select

        End If
    Next ws
End Sub

Sub copier()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Recapitulatif" And ws.Name <> "Modele briefing" And ws.Name <> "TBL BORD" Then
        ws.Range("K4:K23").Copy ws.Range("J4:J23")
    End If
Next ws
Application.CutCopyMode = False
End Sub

Sub copier()
Application.ScreenUpdating = False

Dim ws As Worksheet, Derlig&

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Recapitulatif" And ws.Name <> "Modele briefing" And ws.Name <> "TBL BORD" Then
        Derlig = Worksheets("Recapitulatif").Range("A" & Rows.Count).End(xlUp).Row + 1
        ws.Range("K4:K23").Copy ws.Range("J4:J23")
        ws.Range("K4:K23").Copy Worksheets("Recapitulatif").Range("A" & Derlig)
    End If
Next ws
Application.CutCopyMode = False
End Sub

Sub Recopier_Sans_Copier()
Dim f As Worksheet
For Each f In Worksheets
Select Case f.Name
Case Is = "Recapitulatif", "Modele briefing", "TBL BORD"
'Il ne passe rien pour ces 3 feuilles
Case Else
f.Range("J4:J23").Value = Sheets("TBL BORD").Range("K4:K23").Value
End Select
Next f
End Sub