Function Entree(test, Ent1, Dia1, Ent2, Dia2) As String
Dim E_1, E_2 As String
Dim D_1, D_2 As String
If test <> "" Then
If Ent1 = True Then
E_1 = " " & 90 & "° / D"
D_1 = Application.VLookup(Dia1, Worksheets("Calcul de regard").Range("K3:012"), 5)
Else
E_1 = ""
D_1 = ""
End If
If Ent2 = True Then
E_2 = " " & 90 & "° / D"
D_2 = Application.VLookup(Dia2, Worksheets("Calcul de regard").Range("K3:012"), 5)
Else
E_2 = ""
D_2 = ""
End If
Entree = E_1 & D_1 & E_2 & D_2
Else
Entree = ""
End If
End Function