Blocage à l'exécution de macro + protection feuilles

Bonjour,

A l'exécution de ma macro et suite à la protection des feuilles (où seules les cellules non protégées sont sélectionnables) la ligne en rouge présente un blocage, savez vous pourquoi svp ???

Sub MAJ_contrat()

Dim f1 As Worksheet, f2 As Worksheet, lig&, nvl&

Set f1 = Sheets("REF"): Set f2 = Sheets("BDD_contrats")

If Application.CountIf(f2.Columns(6), f1.Range("B12").Value) > 0 Then

Feuil2.Unprotect
Feuil1.Unprotect

lig = Application.Match(f1.Range("B12").Value, f2.Columns(6), 0)

f2.Range("F" & lig & ":FL" & lig).Value = f1.Range("B12:FH12").Value

Feuil2.Protect
Feuil1.Protect

Else
End If
End Sub

Bonjour,

Chez moi pas d'anomalies particulières avec votre code, donc cela viendrais de votre fichier.

En effet si sur la feuille REF j'ai en B13 inscrit "13", F12 "A", G12 "D" alors après execution, sur la feuille BDD_contrats si j'ai en F18 inscrit "13", alors la macro me renseigne en J18 "A", K18 "D".

Donc je ne vois qu'une seule solution : merci de joindre un fichier avec la manipulation et les données représentatives de l'erreur afin d'arriver à la reproduire et la résoudre.

Cdlt,

Bonjour,

J'ai trouvé, l'erreur venait de ma déclaration de feuille a retirer la protection je me suis trompé de num de feuille lol

merciii