For c = 1 To 20
If MyDate = WSCible.Cells(6, c + 3) Then
For x = 1 To 3
If WSCible.Cells(7, c + 3) = WSSource.Cells(28, x + 3) Then
If CellCible.Offset(0, c) = "" And CellCible.Offset(0, c + 1) = "" And CellCible.Offset(0, c + 2) = "" Then
CellCible.Offset(0, c) = CellSource.Offset(0, x)