oooppps ! j'ai zappé le contexte qui fait que la position de la cellule de destination est variable,
car c'est selon le nombre de lignes au-dessus du « cartouche » (le rectangle bas avec les bordures).
du coup, le format de la cellule de destination doit obligatoirement être mis par la macro :
Private Sub Cadre2(lg0&)
.
.
.
With Cells(lg0 + 1, 1)
.Value = Worksheets(1).[A5]
With .Offset(3, 3)
.NumberFormat = "dd/mm/yy"
.Value = Worksheets(1).[B3]
End With
.Offset(, 4) = Worksheets(1).[B4]
End With
End Sub
cette fois, je pense que ça devrait être ok ; sinon, c'est la cellule source qui pose problème.
comme il te restera encore le problème du logo non résolu, tu devrais retirer la coche de résolution de l'exo !
sinon, les intervenants penseront que tout est fait dans ce sujet.
dhany