Private Sub CommandButton1_Click()
Dim val
For Each val In Range("b27:b75,b77:b145,b146:b168,b174,b176:b187")
If val.Value = 0 Or val.Value = "" Then
Range("A" & val.Row).Select
Selection.EntireRow.Hidden = True
End If
Cells(25, 2)(27, 2)(77, 2)(146, 2).Select
For Each val In Cells(25, 2)(27, 2)(77, 2)(146, 2)
If val.Value > 0 Then
Selection.Copy
Sheets("1").Select
Range("b2").Select
Selection.PasteSpecial Transpose = True
Sheets("4").Select
Range("a1).Select
enf if
Next
end sub
J'ai oublié de préciser dans mon premier message que les lignes qui doivent figurer dans la deuxième feuille ne doivent pas être nul sous peine d'avoir des grahiques remplies de partie à valeur nulle.