Sub TEST()
poste1 = 16
poste2 = 1
poste3 = 2
poste4 = 30
poste5 = 45
poste6 = 67
Mon_Tableau = Array(poste1, poste2, poste3, poste4, poste5, poste6)
For i = LBound(Mon_Tableau) To UBound(Mon_Tableau)
For j = LBound(Mon_Tableau) To UBound(Mon_Tableau)
If Mon_Tableau(i) = 1 And Mon_Tableau(j) = 16 Or Mon_Tableau(j) = 16 And Mon_Tableau(i) = 1 Then
Cells(1, 2).Value = "variable 1"
ElseIf Mon_Tableau(i) = 2 And Mon_Tableau(j) = 30 Or Mon_Tableau(j) = 30 And Mon_Tableau(i) = 2 Then
Cells(2, 2).Value = "Variable2"
ElseIf Mon_Tableau(i) = 45 And Mon_Tableau(j) = 67 Or Mon_Tableau(j) = 45 And Mon_Tableau(i) = 67 Then
Cells(3, 2).Value = "variable 3"
ElseIf Mon_Tableau(i) = 30 And Mon_Tableau(j) = 2 Or Mon_Tableau(j) = 2 And Mon_Tableau(i) = 30 Then
Cells(4, 2).Value = "variable 4"
ElseIf Mon_Tableau(i) = 16 And Mon_Tableau(j) = 67 Or Mon_Tableau(j) = 67 And Mon_Tableau(i) = 16 Then
Cells(5, 2).Value = "variable 5"
End If
Next j
Next i
End Sub