Cellules vides

OK,

Regarde bien la structure de ton code : (déboggage, et appuyer sur F8 pour lancer le codee en pas à pas)
Lorsqu'il tombe sur une case vide, il augmente i d'un cran. Ensuite en restant toujours sur cette même case, il applique une formule supposant au moins un caractère sur une case vide -> bug

Une correction rapide à ton code :

Option Explicit 
Public Sub tag() 

Dim i As Integer 

i = 2 

'un peu barbare 
For i = i To 1000 
Cells(i, 20).Select 
If Cells(i, 20).Select = Null Then 
i = i + 1 
Else 
ActiveCell = Right(ActiveCell, Len(ActiveCell) - 1) 
End If 

Next i 
End Sub 

Une correction un peu plus élaborée qui te fera gagner beaucoup de temps si tu as affaire à de longs fichiers :

Option Explicit 
Public Sub tag() 

Dim i As Integer 

i = 2 

'un peu barbare 
For i = i To 1000 

If Cells(i, 20).Value = Null Then 
i = i + 1 
Else 
Cells(i,20) = Right(Cells(i,20), Len(Cells(i,20) - 1) 
End If 

Next i 
End Sub 

Le fait d'aller activer une cellule prend beaucoup plus de temps que de la travailler sans l'activer. J'avais un programme qui mettait environ un après-midi à tourner avec des Select. Il a été réduit à 1h avec cette méthode...

Okai merci pour ce super conseil ! Je ne savait pas du tout. C'est intéressant de prendre en compte le temps de calcul

Cependant il s'arrête toujours à la case vide. Je ne sais pas pourquoi

J'aurais dû tester...

Le problème vient de ton test "If Cells(i,20).Select = Null"
Primo, c'est Cells(i,20).Value qu'il faut tester et secondo pour tester si une cellule est vide, mieux vaut indiquer "" que Null.

Ensuite le fait d'incrémenter de i si la valeur est nulle peut te faire sauter une case avec du texte., autant donc tester si une cellule n'est pas vide (si c'est le cas agir), autrement laisser la boucle tourner sans d'autres instructions.

J'ai de plus repéré quelques pépites sur mon code optimisé.

Au final ça donne ça :

Public Sub tag()

Dim i As Integer

'un peu barbare
For i = 2 To 1000

If Cells(i, 20).Value <> "" Then
    Cells(i, 20).Value = Right(Cells(i, 20).Value, Len(Cells(i, 20)) - 1)
End If

Next i
End Sub

Wahou super ! Merci à toi !
Je cherchais depuis ce matin une solution pour contourner ce test. C'est vrai que ta condition est géniale !
Merci bien