Sub Bouton9_QuandClic()
Dim ws As Worksheet
Dim derligne As Integer
Dim compil As Worksheet
Set compil = Sheets('Compil')
derligne = 6 'depart ligne 6
For Each ws In Worksheets 'pour chaque feuille du classeur
If ws.Name <> compil.Name Then 'si la feuille n'est pas la feuille compil
With ws 'avec la feuille on renvoi les données
compil.Cells(derligne, 2) = .Range('b3')
compil.Cells(derligne, 3) = .Range('b4')
compil.Cells(derligne, 4) = .Range('b14')
compil.Cells(derligne, 5) = .Range('c14')
compil.Cells(derligne, 6) = .Range('d14')
compil.Cells(derligne, 8) = .Range('h14')
compil.Cells(derligne, 9) = .Range('l14')
End With
derligne = derligne + 1 'on incremente la ligne
End If
Next ws
End Sub