range(cells((7,i),cells(ligne,i+3)).select
Range(Cells(7, i), Cells(ligne, i + 3)).Select
Dim i As Byte, ligne As Byte
i = 1
ligne = 3
Range(Chr(i + 96) & "7:" & Chr(i + 96 + 3) & ligne).Select
Renvoie une valeur de type String contenant le caractère associé au code de caractère indiqué.