copie de plage avec des valeurs exclue sur certaines conditions

Sub Copie1()
Dim cel As Range
For Each cel In Range("C5:C42,G5:G42,K5:K42,O5:O42,S5:S42,W5:W42,AA5:AA42,AE5:AE42,AI5:AI42,AM5:AM42,AQ5:AQ42,AU5:AU42")
If cel.Offset(, 1) <> 5 Then ActiveCell.Copy cel
Next
End Sub

Sub Copie2()
Dim cel As Range
For Each cel In Range("C5:C42,G5:G42,K5:K42,O5:O42,S5:S42,W5:W42,AA5:AA42,AE5:AE42,AI5:AI42,AM5:AM42,AQ5:AQ42,AU5:AU42")
If cel.Offset(, 1) <> 5 Then cel = ActiveCell 'copie seulement la valeur
Next
End Sub