Range et Zone de nom

Bonjour à tous,

Je reviens vers la communauté car j'ai un petit soucis...

Dans le code suivant, le contenu de cellules est copié dans une autre cellule, exemple : Range("B" & j) = .Range("C" & i)

J'ai donner le nom de zone "NomEleve" à la colonne "C" afin de pouvoir y faire référence même en ajoutant une colonne avant celle-ci. j'ai essayé comme ceci : Range("B" & j) = .Range(Range("NomEleve") & i) mais ça ne fonctionne pas... je ne sais pas comment faire

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Classe")) Is Nothing Then
        Application.Run ("Tri_Alpha_Eleves")
        If Range("A5") <> "" Then Range("A5:F" & Range("A24").End(xlUp).Row).ClearContents
        j = 5
        With Sheets("Liste")
            With Sheets("Statistiques")
                Dim Office As Variant
                If .Range("C2").Value = "Officiel" Then
                    Office = "A"
                Else
                    Office = "B"
                End If
            End With
            x = 0
            For i = 1 To .Range(Office & Rows.Count).End(xlUp).Row
                If .Range(Office & i) = Target Then
                    x = x + 1
                    Range("A" & j) = x
                    Range("B" & j) = .Range("C" & i)    'NOM Prénom de l'élève
                    Range("C" & j) = .Range("J" & i)    'Date de naissance AA/MM/JJ
                    Range("D" & j) = .Range("I" & i)    'Type
                    Range("E" & j) = .Range("H" & i)    'Transport
                    Range("F" & j) = .Range("N" & i)    'Cours philosophique
                    j = j + 1
                End If
            Next
            Application.Run ("Tri_Alpha_Prof")
        End With
    End If
End Sub

Les données à copier sont sur la feuille "Liste" et l'endroit où les copier sont sur "Classe".

Merci d'avance

Bonjour,

Pour correspondre à ta première instruction d'affectation [NB- ce n'est pas une copie, mais une affectation de valeur...]

Range("B" & j) = [NomEleve].Cells(i, 1)

Cordialement.

J'ai appliqué le principe à toutes les instructions qui avaient besoin de ceci... ça fonctionne du tonnerre (de Pikachu).

Super merci