petit soucis avec une macro

bonjour,

j'ai une macro qui me permet de copier la zone: B4:B36 sur une ligneA4:AF4 dans une autre feuille tout fonctionne mais dans la 2 eme page en AG4 il y a une formule et la macro l'efface .

j'ai bon chercher je passe au dessus de l'erreur

On Error Resume Next

Sheets("encodage").Select

With Sheets([A3].Value)
If Err > 0 Then MsgBox "Onglet inexistant": Exit Sub
Ligne = .[A65536].End(xlUp).Row + 1

For k = 1 To 32
.Cells(Ligne, k) = Range("B" & k + 4)
Next k
End With

Range("B6:B9,B12:B36").ClearContents
'and
Range("B5") = Range("B5") + 1
'and
Range("B6").Select

bpol