Sub Macro2()
With Sheets("Feuil1fichier2")
Set r = .UsedRange
.Range("B3").Resize(r.Rows.Count - 2, r.Columns.Count - 1).Copy
With Sheets("Feuil1fichier1").Range("A65535").End(xlUp).Offset(1, 0)
.PasteSpecial xlValues
.PasteSpecial xlPasteFormats
End With
End With
Application.CutCopyMode = False
Sheets("Feuil1fichier1").UsedRange.Interior.ColorIndex = xlNone
End Sub