Sub Launch()
Dim ref As String
ref = ActiveCell.Value
'Ouvre un fichier texte pour ecrire la imacros
Open "\\Mondossier\MacroCluster.iim" For Output As #1
Print #1, "URL GOTO=https://monlien.com?person=" & ref & "&action=edit"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas1.html ATTR=NAME:PE_cas1 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas2.html ATTR=NAME:PE_cas2 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas3.html ATTR=NAME:PE_cas3 CONTENT=YES"
Close #1
'Fichier bat qui me permet d'executer la macro avec firefox
Shell "\\Mondossier\MacroCluster.bat"
End Sub