À partir de la colonne B, mais jusqu'où??? Et après 1465 messages postés, sans vouloir t'offenser, où est le fichier???
En supposant que la dernière colonne soit la G
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(5, 2), Cells(5, 7)).FormulaR1C1 = "=IF(R[-1]C<>"""",1,"""")"
Cancel = True
End Sub