Sub test()
' on déclare un tableau avec toutes les chaines recherchées
Chaine = Array("ISO", "IBC", "SAC", "BAG", "ISOMIX", "GEL", "FUT", "POUDRE", "JERRICAN", "V5700")
' on déclare un tableau avec toutes les valeurs à ajouter à N4
N = Array(1000, 500, 0, 0, 0, 0, 0, 0, 0, 0, 0)
' taille de l'array
Taille = UBound(Chaine)
' nombre de cellules occupéres en colonne G
TailleG = Application.CountIf(Range("G:G"), "*")
' pour toutes les lignes de G
For Ligne = 1 To TailleG
' on prend la valeur en G de la ligne concernée
Valeur = UCase(Range("G" & Ligne).Value)
' pour toutes les chaines recherchées
For i = 0 To Taille
' si la cellule
If Valeur Like "*" & Chaine(i) & "*" Then
' on met valeur col N dans col O additionné de la valeur de l'array N.
Range("O" & Ligne).Value = Range("N" & Ligne) + N(i)
End If
Next i
Next Ligne
End Sub