Bonsoir, Bonsoir Jean-Eric,
Tu sais que je suis un Emm.. mais bon, aussi un peu "puriste"
'temp = "" 'temp est DEJA vide
For i = 3 To 194
For j = 3 To 46
If Cells(i, j) = 1 Then
temp = Cells(1, j) & "-" & temp
End If
Next j
Cells(i, 47) = Left(temp, Len(temp) - 1)
temp = ""
Next i
Cdlt.