Private Sub Worksheet_Activate()
Dim Lig As Long, Col As Long
Application.ScreenUpdating = False
For Lig = 4 To 14
For Col = 4 To 31
If ActiveSheet.Cells(Lig, Col).Value = "" Then
ActiveSheet.Cells(Lig, Col).Value = ActiveSheet.Cells(Lig + 19, Col).Value
End If
Next Col
Next Lig
Application.ScreenUpdating = True
End Sub