Sub AAAAA()
Dim n As Long
n = 41
Range("J8:L39,O8:O39").Select 'Fonctionne parfaitement. On a 2 colonnes distinctes avec 1 Range
Range("J8:L" & n - 2, "O8:O" & n - 2).Select 'Ne reproduit pas la ligne ci-dessus !!! Or c'est ce qui m’intéresse
End Sub