Sub MultiSelect()
Dim MonAdresse As String
NbLgn = 4
For i = 1 To NbLgn
MonAdresse = IIf(MonAdresse = "", Cells(i, 1).Address, MonAdresse & "," & Cells(i, 1).Address)
MonAdresse = MonAdresse & ":" & Cells(i, 3).Address
Next
Range(MonAdresse).Select
End Sub