Private Sub Worksheet_Activate()
Sheets("SPA").Range("RAPPEL").Clear
With Worksheets("SPA")
Worksheets("Fériés").Range("O32:R40").Copy .Cells(.Rows.Count, "D").End(xlUp)(3)
'Possible d'utiliser .Row.Name = "RAPPEL" pour redefinir la zone de la plage ?
End With
End Sub