Microsoft 365 VBA: sélectionner plage selon colonne

Private Sub Worksheet_Change(ByVal Target As Range)
Dim COL As Byte 'déclare la variable COL (COLonne)

If Application.Intersect(Target, Range("C3:Z20")) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage C3:Z20, sort de la procédure
COL = Target.Column 'définit la colonne COL
Range(Cells(3, COL), Cells(20, COL)).Select 'sélectionne la plage
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim COL As Byte 'déclare la variable COL (COLonne)

If Application.Intersect(Target, Range("C3:Z20")) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage C3:Z20, sort de la procédure
COL = Target.Column 'définit la colonne COL
Range(Cells(3, COL), Cells(20, COL)).Select 'sélectionne la plage
Cells(20,COL).Activate '<== ici
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(ActiveCell.Row, "Z").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(ActiveCell.Row + 1, "Z").Value = “” Then [Z5].Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
if Cells(ActiveCell.Row, "Z").value <> "" then Cells(ActiveCell.Row, "Z").Select
End Sub