Merci de vos réponses, le fichier est trop complexe pour être envoyé en exemple à mon avis, le fonctionnement est long a comprendre
J'avais oublié de vous préciser qqch, c'est dès que l'on rencontre une cellule ("B"&i) non vide, on s'arrète, j'ai alors testé cela, mais j'ai apparemment un else sans if, pourtant il y est...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
If Not Application.Intersect(Target, Range("B5:B50")) Is Nothing Then
Range("A" & Target.Row & ":H" & Target.Row).ClearContents
For i = 5 To 50
If Range("B" & i) = "" Then Range("A" & i & ":H" & i).ClearContents
Else: GoTo 8
Next i
8
End If
End Sub
EDIT: ce que j'ai fais n'est pas cohérent, si je double cloque sur B16, je veux vérifier à 17, 18, 19 etc et pas de 5 à 50
En plus il n'y avait pas de end if, je l'ai vu après