Sub Bouton1_QuandClic()
Dim i As Integer, j As Integer
j = 11
For i = 1 To 30
Select Case i
Case 10 To 23, 25 To 30
Sheets('feuil2').Cells(2, j) = Cells(10, i)
j = j + 1
If j = 25 Then j = 27
End Select
Next i
End Sub