salut daphné
Un début de solution
Attention la longueur d'une STRING maximum 255 caracteres
Option Explicit
Sub Selection()
Dim Ligne As Byte
Dim Plage As String
Plage = ""
For Ligne = 1 To 170 Step 3
Plage = Plage & "A" & Cells(Ligne, 1).Row & ","
Next Ligne
Plage = Left(Plage, Len(Plage) - 1)
Range(Plage).Select
End Sub
Mytå