Bonjour,
Ci-dessous le code établi qui fonctionne, à savoir il récupère les données de la colonne 6 pour les inscrire dans un autre onglet.
Seul problème c'est que je ne veux pas qu'il récupère toutes les données de la colonne 6 (colonne F).
Juste de la ligne 21 à 80.
Comment je dois adapter 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
25
26
27
28
29
30
31
32
33
34
Public oVal As String
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    oVal = Target
'End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then oVal = Target.Value
    'oVal = Target.Value
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oRng As Range
Dim n As Integer
 
ActiveSheet.Range("A21:F79").Select
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Columns(6)) Is Nothing Then
        If Target > "0" Or Target <> oVal Then
            Set oRng = Range("F21")
            Feuil18.Range("A37:A50").ClearContents
            'Feuil18.Range("B37:B50").ClearContents
            Feuil18.Range("E37:E50").ClearContents
            For i = 0 To Cells(Cells.Rows.Count, 2).End(xlUp).Row - 1
                If UCase(oRng.Offset(i, 0)) > "0" Then
                    If UCase(oRng.Offset(i, 0)) <> "X" Then
                        n = n + 1
                        Feuil18.Range("A36").Offset(n, 0) = oRng.Offset(i, -2)
                    End If
                End If
            Next i
        End If
    End If
End If
 
End Sub