Bonjour
tu dis ne pas vouloir protéger les colonnes..et pourtant tu postes un fichier protégé...
pour inscrire une formule dans une cellule J2 par VBA, voici ma méthode
1) créer une variable qui contient la formule en Anglais
FormuleJ="=if(A2="""",""""if(A2<>""""................)"
en anglais veut dire: les fonctions sont écrites dans la version Anglaise ==> Si==>IF, et==> And....
les ; sont remplacés par des ,
les " sont remplacés par ""
2) inscrire la formule
range("J2").formula=formuleJ
3) pour étirer la formule: autofill