i'm working on a macro that helps me to copy data from one worksheet to another in Excel with on conditions. I tried the following code but i got an object required error 

Any help is appreciated 

```
Sub copier()
   Dim ws1 As Worksheet, ws2 As Worksheet, src As Range, dest As Range, i As Integer

   Set ws1 = Worksheets("Workload - Charge de travail")
   Set ws2 = Worksheets("Sheet1")

   For i = 2 To ws1.Range("A1").SpecialCells(xlLastCell).Row        

       Set src = ws1.Range("A" & i & ":AL" & i + 50)
       Set dest = ws2.Range("A" & i & ":AL" & i + 50)

        If Source.Cells(i, 31).Value = "Completed - Appointment made / Complété - Nomination faite" Then

          '(i,31) this is  for my drop down list's condition

          src.Copy Destination:=dest
          dest.Value = dest.Value
       End If
   Next i
End Sub

```