Dim x As Long
If trav.ListIndex = -1 Then
If signa = 0 Then
csigna = True
For x = 2 To finf11
If Feuil11.Cells(x, 21) = "" Then signa = x
Next
Else
With depTraitements
.hott = xHôtel(nohote)
.trav = xSignalement(signa)
End With
depTraitements.Show
End If