XL 2016 copy sur plusieurs feuille

Sub Worksheet_Change(ByVal Target As Range)
' Mettre à jour les feuilles à exclure du genre :
' If f.Name <> "Référence" or f.Name <> "Feuill2" or f.Name <> "Feuil3" Then
    On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("M6:N65")) Is Nothing Then
        tablo = Range("M6:N65")
        For Each f In Worksheets
            If f.Name <> "Référence" Then   ' exclusion de la feuille référence
                Sheets(f.Name).Range("$M$6").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
            End If
        Next f
    End If
Fin:
End Sub