Exécuter les macros automatiquement

Hello ,


J'utilise l'option sous Excel > centre de sécurité > Activer les macros automatiquement car mon client ne veut meme pas faire un click

le pb que cette fonction qui permet de remplir des champs ne s'exécute pas , il faut aller sur chaque champ Faire F2 pour afficher la valeur

Function GetParam(mysheet As String, myfield As String, mycol As String) As String

Dim Worksheet As Worksheet
Dim myRange As Range

GetParam = "-"
Set Worksheet = Sheets("C1")
Set myRange = Worksheet.UsedRange

For Each rw In myRange.Rows
If rw.Cells(1, 1).Value = myfield Then
If mycol = "Unit" Then
GetParam = rw.Cells(1, 2).Value
Else
If mycol = "AB" Then
GetParam = rw.Cells(1, 3).Value
Else
If mycol = "BA" Then
GetParam = rw.Cells(1, 4).Value
End If
End If
End If
End If
Next

End Function


y-a-t-il un moyen de rendre son exécution automatique ?