XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not LCase(Sh.Name) Like "item n°*" Then Exit Sub
Dim c As Range
Set c = Sheets("Matrice").[2:2].Find(Sh.Name, , xlValues, xlWhole)
If c Is Nothing Then
    Sh.[GL64].Resize(, 50).Clear
Else
    c(2).Resize(50).Copy
    Sh.[GL64].PasteSpecial xlPasteAll, Transpose:=True
    Application.CutCopyMode = 0
End If
Sh.[GL64].Select
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not LCase(Sh.Name) Like "item n°*" Then Exit Sub
Dim F As Worksheet, c As Range
Set F = Sheets("Matrice")
Set c = F.[2:2].Find(Sh.Name, , xlValues, xlWhole)
If c Is Nothing Then Set c = F.Cells(2, F.Columns.Count).End(xlToLeft)(1, 2): c = Sh.Name
c(2).Resize(50) = Application.Transpose(Sh.[GL64].Resize(, 50))
End Sub

Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
Workbook_SheetChange Sh, Sh.[A1] 'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.Name) <> "matrice" Then Exit Sub
Dim col%
Application.ScreenUpdating = False
On Error Resume Next
For col = 2 To Sh.Cells(2, Sh.Columns.Count).End(xlToLeft).Column
    If IsError(Sheets(CStr(Sh.Cells(2, col)))) Then
        With Sh.Cells(3, col).Resize(50)
            .ClearContents
            .Interior.ColorIndex = xlNone
        End With
    End If
Next
End Sub