Bonjour,

Je n'arrive pas a retourner le numéro de la colonne "Niveau" de mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim CellsInColumnNiveau As Range
Dim SheetNameNiveau As Worksheet
Dim Entete As Range
    With Worksheets(1)
        For Each Entete In .Range("1:1")
            If Entete = ("NIVEAU") Then
                For Each CellsInColumnNiveau In .Range(.Cells(Rows.Count, Entete.Column).End(xlUp), .Range(.Cells(Entete.Row, Entete.Column)))
                    If CellsInColumnNiveau.Value <> "" Then
                        For Each SheetNameNiveau In Worksheets
                            If SheetNameNiveau.Name = CellsInColumnNiveau.Value Then
                            .Rows(CellsInColumnNiveau.Row).Copy Sheets(CellsInColumnNiveau.Value).Cells(Rows.Count, Entete.Column).End(xlUp).Offset(1, -Entete.Column)
        GoTo apres
                            End If
                        Next
                        Sheets.Add after:=Sheets(Sheets.Count)
                        Sheets(Sheets.Count).Name = CellsInColumnNiveau.Value
                        .Rows(CellsInColumnNiveau.Row).Copy Sheets(CellsInColumnNiveau.Value).Cells(Rows.Count, Entete.Column).End(xlUp).Offset(1, -Entete.Column)
apres:
                    End If
                Next
            End If
        Next
    End With
Pouvez-vous m'expliquer comment faire?