Re bonjour voila mon code, il marchais jusqu'a present mais je sais pas quel manip j'ai fait il n'y a plus aucune "selection.qqchose qui fonctionne. D'un coté ca tombe bien c'est pas conseillé mais je ne sais pas comment faire autrement j'ai essayé d'autre chose mais vu que c'est d'une feuille d'un fishier à une autre feuille d'une autre fichier je sais pas trop comment organiser ça

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
Private Sub Montpellier_dom_cmd_Click()
 
 Workbooks.Open ("C:\Users\PC_DU_GREEN\Desktop\Stat pari\Stat montpellier.xlsx")
  Windows("Stat montpellier.xlsx").Activate
  Sheets("recap 3 dernieres saisons").Select
   Range("A1:T296").Select
    Application.CutCopyMode = False
    selection.Copy
    Windows("paris sportif.xlsm").Activate
   Sheets("domicile").Range("A1").Select
   ActiveSheet.Paste
Workbooks("Stat montpellier.xlsx").Close False
frmexterieur.Show
frmdomicile.Hide
 
End Sub
A l'aide s'il vous plait je suis sur que c'est trop bête en plus