[Macro] si cellule vide, supprimer autre cell

Bonjour,
je vous explique rapidement mon problème
j'ai un tableau qui s'étend de A1 à AL23. je cherche une macro qui me permettrait, si la cellule Ax est vide, de supprimer les cellules Ax à Rx. j'ai trouvé cette macro :
Sub efface_A_vide()
Dim l As Integer
For l = Cells(65256, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub



Il faudrait juste qu'au lieu de supprimer la ligne enière, la macro ne supprime que les cellules de A à R sur cette ligne.
J'espère avoir été clair, et que cela soit possible :s
Je vous remercie d'avance