Sub Macro1()
Dim Cons(3) As String 'déclare le tableau de variable Cons
Dim Pl As Range 'déclare la variable Pl
Dim R As Range 'déclare la variable R
Dim Cel As Range 'déclare la variable Cel
Cons(0) = '0805' 'définit la première variable du tableau Cons
Cons(1) = '0402' 'définit la seconde variable du tableau Cons
Cons(2) = '0603' 'définit la troisième variable du tableau Cons
Cons(3) = '1206' 'définit la quatrième variable du tableau Cons
With Sheets('Feuil1')
Set Pl = .Range('C3:C' & .Range('C65536').End(xlUp).Row) 'définit la variable Pl
For x = 0 To 3 'boucle sur les 4 variables
For Each Cel In Pl
If InStr(1, Cel, Cons(x), vbTextCompare) <> 0 Then
Cel.NumberFormat = '@'
Cel.Value = Cons(x)
Else
Cel.Value = ''
End If
Next Cel
Next x
End With
End Sub