Bonjour Olivier, le forum
voici un code fonctionnel qui copie la plage détectée sur la feuille B dans la première cellule libre de la colonne A de la feuille A et lui applique une couleur de police 15.
Cordialement, A+
Sub Copier_Plage()
Dim Plage As Range, Cellule_Dest As Range
Set Plage = ThisWorkbook.Sheets("B").Range("A1:F" & ThisWorkbook.Sheets("B").Range("A1").End(xlDown).Row)
Set Cellule_Dest = ThisWorkbook.Sheets("A").Range("A65536").End(xlUp).Offset(1, 0)
Plage.Copy Destination:=Cellule_Dest
Cellule_Dest.Range(Plage.Address).Font.ColorIndex = 15
End Sub