Comment traduire des signes japonais pour vba ???

[albert]

Je renouvelle mes salutations à tous, forumiens, forumiennes,

Je cherche à supprimer toutes les 51ièmes lignes partir de la ligne 70

Vba met des « ?? » pour les signes non reconnus, ce qui fait que ça ne marche pas

Existe-t-il un moyen de lui faire reconnaître les signes japonais ??
…ou alors, dois-je me résoudre à trouver une boucle qui supprime toutes les 50 lignes à partir de 20 ?? (sur ce point là, je ne suis pas très fort)
Sub SUP2()
Dim x As Integer
For x = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 14 Step -1
If Sheets("Feuil1").Range("B" & x) = "??" Then Rows(x).Delete

Next
End Sub
merci d'avance
albert

 

[albert]

j'ai trouvé le moyen de supprimer les lignes indésirables...

Sub nouveau()
A = Range("A19", Range("A19").End(xlDown)).Count
For i = 19 To A Step 51
Cells(i, 1) = ""
Next
On Error Resume Next
Range("A20:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub