Sub Bouton1_Cliquer()
'ActionCopie.EFFACE
nomfichier = ActiveWindow.Caption
Range("B1:N1").Select
'On Error Resume Next
nomfich = ""
For i = 1 To Windows.Count
If LCase(Left(Windows(i).Caption, 8)) = "804_mois" Then nomfich = Windows(i).Caption: Exit For
Next
'
If nomfich = "" Then MsgBox "pas de fichier ouvert - abandon": Exit Sub
Windows(nomfich).Activate
Range("A4:B8").Copy
Windows(nomfichier).Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C9").Select
Windows(nomfich).Close savechanges:=False
MsgBox "Copie effectuée"
End Sub