Sub Bouton1_QuandClic()
Dim nb As Long, lg As Long, j As Long
Dim col As Byte, k As Byte
Dim ws As Worksheet
nb = Range("a65536").End(xlUp).Row
Set ws = Sheets("Résumé")
ws.Cells.Clear
i = 14
For col = 2 To 8 'de la colonne 2 à la colonne 8
k = 9
i = i + 1
ws.Cells(i, 9) = Cells(2, col)
For j = 3 To nb
If Cells(j, col) = "oui" Then
k = k + 1
ws.Cells(i, k) = Cells(j, 1)
End If
Next j
Next col
ws.Range("I15").CurrentRegion.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
ws.Range("I15").CurrentRegion.Borders(xlInsideHorizontal).Weight = xlThin
ws.Range("I15").CurrentRegion.Borders(xlInsideVertical).Weight = xlThin
ws.Select
End Sub