Sub SelectCel()
i = Range("B65536").End(xlUp).Row 'Est censé compter la derniere cellule non vide de la colonne B'
If Range("B" & i).Text <> "" Then
Range("AB2").AutoFill Range("AB2:AB" & Range("B & i").End(xlUp).Row)
Else
Range("AB" & i).Value = ""
End If
End Sub