Salut à tous.
 
Je voudrais appliquer cette macro sur plusieurs cellules.
Exemple de A5 à A200 et idem sur I. Car le critère sur trouve en colonne E et le résultat doit s'inscrire en colonne I et elle doit se répéter sur chaque ligne (de 5 à 200 par exemple).
 
Merci d'avance
 
Sub Macro4()                                    
   'Variables'
    Dim Coût As Integer, Tranche As String
    Coût = Range("E5" )
    Coût = Range("E6" )
     
    Select Case Coût
    Case Is < 400
       Tranche = "<400"
    Case Is < 450
       Tranche = ">=400<450"
    Case Is < 500
       Tranche = ">=450<500"
    Case Is < 550
       Tranche = ">=500<550"
    Case Is < 600
       Tranche = ">=550<600"
    Case Is >= 600
       Tranche = ">=600"
    Case Else
       Tranche = ""
    End Select
   
    'Inscrit la tranche en I5'
    Range("I5" ) = Tranche
    Range("I6" ) = Tranche
End Sub

 
           Soit le bloc du Select Case est intégré dans une fonction,
           dans le code principal il suffit d'appeler cette fonction pour chaque cellule résultat,
           soit utiliser directement une boucle dans le code …