Bonjour à tous.
Je me présente.
Étudiant et ne suis ni informaticien ni programmeur en VBA, mais un assoiffé du savoir.
Voilà j'ai réalisé un Planning pour un amis propriétaire d'un Bar Tabac.
Dans une feuille de cette base de donnée j'ai crée 3 boutons nommés (ÉQUIPE1 ÉQUIPE2 ÉQUIPE3). Ces boutons font appel la même Macro pour copier les lignes (B3:Y13) du PLANNING concernant chaque équipe et l'archive dans une feuille ARCHIVES.

Le Bouton EQUIPE1 archive celui le Tableau du Planning de l'équipe3.
Le Bouton EQUIPE2 archive celui le Tableau du Planning de l' équipe1.
Le Bouton EQUIPE3 archive celui le Tableau du Planning de l' équipe2.

Il y a un seule et unique Tableau qui change toutes les semaines

Tout marche bien, mais au delà du 5ème Essai la macro se bloque à la ligne ci-dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False'

Ci joint la macro//
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub EQUIPE1()    
'selectionner la feuille menu
 Sheets("PLANNING").Select
 'selection de la plage
Range("B3:Y13").Select
'copie des informations
Selection.Copy
'Selection de la base
Sheets("BACKUP").Select
'selection de la derniere cellule non vide
Cells(65535, 1).End(xlUp)(14).Select
'Colle la plage copiée
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False'
Call SEMAINE1
Call Effacer
End Sub
J'espère être claire et j'implore votre aide et vous remercie infiniment.
Cordialement