Dim c(1 to 2) as Long, Indice as long
c(1) = ValeurPierre
c(2) = ValeurPaul
Indice = Switch(nom = "PIERRE", 1, nom = "PAUL", 2)
typ_A = Worksheets("feuille1").Range("C" & c(Indice)).Value
typ_B = Worksheets("feuille1").Range("A" & c(Indice)).Value
ref = c(Indice)