Macro excel2007-2019

Bonjour,
j ai actuellement un fichier *.xlm qui fonctionne bien sous excel2007 . dès que je le change de pc il ne fonctionne plus sous excel2019
juste une macro .... JE VAIS COPIER DANS LA "FEUIL1" ET JE VIENS COLLER DANS LA PREMIERE LIGNE VIDE DE "WWWWW"
La feuil1 est cachée , mais je ne pense pas que ca dérange
En fait ca vient bien copier/coller mais il y a des cellules avec un choix avec un menu déroulant qui fait n'importe quoi . , Merci de votre aide

Sub Copie2()

With Sheets("Visite WWWWW").Activate

Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.RowHeight = 160
End With

With Sheets("Feuil1")
.Range("A22:L22" & .Range("A65536").End(xlUp).Row).Copy Sheets("Visite WWWWW").Range("A65536").End(xlUp).Offset(1, 0)
End With

derligne = Sheets("Visite WWWWW").Range("A65556").End(xlUp).Row + 1 'On identifie la dernière ligne vide en partant du bas
For I = 1 To derligne
If Range("A" & I) = "" Then
a = Range("A" & I - 1)
b = Right(a, 3) + 1
a = "0" & I - 1
Range("A" & I) = "0" & b
End If
Next I
End Sub