Sub a()
Dim x&
x = 7
'tres bizarre cette syntaxe ;-)
Range("B" & x & ":B" & x & "").Select
MsgBox ActiveCell.Address & " test 1"
'car il y a plus simple en magasin
MsgBox Range("B" & x).Address & " test 2"
'ou encore
MsgBox Cells(x, "B").Address & " test 3"
End Sub