Sub Bouton1_QuandClic()
Dim i As Byte, c As Byte
c = 1
For i = 1 To Range('iv4').End(xlToLeft).Column
If Cells(4, i) <> '' Then
With Sheets('feuil2')
.Cells(2, c) = Cells(4, i)
.Cells(2, c).NumberFormat = '0.00%'
.Cells(1, c) = Cells(1, i)
c = c + 1
End With
End If
Next i
End Sub