MsgBox Application.UserName
Sub ta_macro()
If Application.UserName <> "ton_username" Then Exit Sub
'ton code
End Sub
Et n’oubliez pas qu’un petit message, une fois votre ' épine ' sortie du pied, pour dire que c’est OK, que cela fonctionne, avec un petit ' Merci ' est la seule récompense des contributeurs d’XLD.