Merci bien ca marche impeccable .
Mais je n'ai toujours pas compris comment transposer à mon fichier cette procédure VBA. Quelle ligne indique que l'écriture doit se faire à partir de la ligne 8 par ex?
Par ailleurs dans mon exemple j'ai plusieurs feuilles avec sur la feuille 1 les données de bases à traiter et sur la feuille 2 le bouton de click et la restitution .. comment faire ?
désolé mais je suis niveau zero sur le VBA.. comme tu le vois.
cdt ERIC
Option Explicit
Private Sub Lister_Indicateurs_Click()
Dim Cel As Range
Dim Col As Byte
For Each Cel In Range("C2:I2")
Select Case Cel.Offset(1)
Case Is < Cel.Offset(2) * 0.9
Col = 2
Case Is > Cel.Offset(2) * 1.1
Col = 4
Case Else
Col = 3
End Select
Cells(Rows.Count, Col).End(xlUp).Offset(1) = Cel
Next Cel
End Sub