Microsoft 365 Erreur inexplicable

Bonjour le Fil,

Joint un fichier contenant une macro (merci Sousou) fort simple. Dans l'onglet '' Ajouter un atelier '' le logo est lié à la macro. tout les tests avec des caractères collé etc fonctionnes. Mais pour une raison que je ne comprends pas. Lorsque je viens pour entrer enfin un vrai atelier exemple ( Solidifier son plan financier ou encore Économiser avec son crédit) l'importation dans l'onglet '' En un coup d'oeil '' chie totalement. Je ne comprends pas. La seule raison simpliste que j'ai pu lier à l'échec serait de mettre un espace de le titre. J'ai laissé les résultats de trois essaies de création par la macro dans l'onglet en un coup d'œil pour démontrer la problématique finale. J'aimerais ajouter qu'avant d'arriver à cette finalité. J'ai du cliquer annuler pour chaque case de la ligne erroné.

J'aimerais bien comprendre et surtout régler mon problème.

Sub nouveau()
rep = InputBox("Merci de saisir le nom de l'atelier.", "ATELIER")
If rep = "" Then Exit Sub
Sheets("Patron").Copy After:=Sheets(Worksheets.Count)

ActiveSheet.Name = rep
Set fich = ActiveSheet
fich.Range("d2") = rep
Call ajoutecolonne(fich)


End Sub

Sub ajoutecolonne(fich)
lgdeb = 2 'ligne dedifinissant la première ligne du tableau
With Sheets("En un coup doeil")
.Activate
drcol = .Cells(lgdeb, .UsedRange.Columns.Count).End(xlToLeft).Column + 1
.Cells(lgdeb, drcol) = fich.Name
.Cells(lgdeb + 1, drcol).Formula = "=" & fich.Name & "!Ad22"
.Cells(lgdeb + 2, drcol).Formula = "=" & fich.Name & "!Ac22"

.Cells(lgdeb + 3, drcol).Formula = "=" & fich.Name & "!C22"
.Cells(lgdeb + 4, drcol).Formula = "=" & fich.Name & "!L22"
.Cells(lgdeb + 5, drcol).Formula = "=" & fich.Name & "!f25"
.Cells(lgdeb + 6, drcol).Formula = "=" & fich.Name & "!f26"
.Cells(lgdeb + 7, drcol).Formula = "=" & fich.Name & "!f27"
.Cells(lgdeb + 8, drcol).Formula = "=" & fich.Name & "!f28"
.Cells(lgdeb + 9, drcol).Formula = "=" & fich.Name & "!f29"
.Cells(lgdeb + 10, drcol).Formula = "=" & fich.Name & "!f30"


End With

Votre aide serait grandement apprécié
Merci en avance pour ceux qui aideront

Mary