Bonjour
Merci pour ton aide
J'ai bien reverrouillé mes cellules ,le problème maintenant
j'ai un bug dans le code de la feuille au niveau de cette ligne
Set tablo = Range("B1").CurrentRegion
C'est bon j'ai rajouté au début du code VBA de la feuille On Error Resume Next
Bonne soirée