[RESOLU] sélection cellule par code name de la feuille

Sub OuvrirJA()
    Dim wbk As Workbook, ja$, i%
    ja = "Journal des activités.xls"
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name = ja Then
            Workbooks(i).Activate
            Exit Sub
        End If
    Next i
    Workbooks.Open ThisWorkbook.Path & "\" & ja
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ca As Range, vl As String, nchro() As String, nc() As String, r%, i%
    Set ca = Me.Range("AK12").MergeArea
    If Target.Address = ca.Address Then
        Application.ScreenUpdating = False
        OuvrirJA
        With ActiveWorkbook.Worksheets("Enrg")
            r = .Range("D65536").End(xlUp).Row
            ReDim nchro(r - 5)
            For i = 5 To r
                If .Cells(i, 1).Value = "RETARD" Or .Cells(i, 1).Value = "CRAC ?" Or .Cells(i, 2).Value = "X" Then
                    nchro(i - 5) = CStr(Format(.Cells(i, 4).Value, "000"))
                Else
                       nchro(i - 5) = "!"
                End If
            Next i
        End With
        nc = Filter(nchro, "!", False)
        ca.Validation.Modify xlValidateList, , , IIf(Join(nc) <> "", Join(nc, ","), "000")
        ThisWorkbook.Worksheets("Etat").Activate
        Application.ScreenUpdating = True
    End If
End Sub

Sub Ouvrir_Etat()
    ThisWorkbook.VBProject.VBComponents("Etat").Activate
    Range("Activités").Select
End Sub

Application.Goto Feuil2.Cells(1, 1)

Sub Ouvrir()
Etat.Activate
Cells(2, 3).Select
End Sub