Salut Sigma
Robert j'tavions point vu
bon j'ai travaillé un petit truc j'vais pas l'fou... aux orties
Sub passe_num()
Application.ScreenUpdating = False ' evite le sintillement de l'ecran
Sheets(1).Select
t = Cells(8, 2).Value
t = Month(t) + 3
num = CStr(Cells(4, 2).Value)
cont = Cells(6, 2).Value
'test de la colonne pour identifier la valeur
Sheets(2).Select
For lg = 2 To 70
If Cells(lg, 1).Value = cont Then ' si la valeur outil ets trouve
Exit For ' on sort de la bouvle
End If
Next
Sheets(2).Select
If CStr(Cells(lg, t).Value) = '' Then ' test si la cellule de destination est vide
Else ' si non on ajoute un / et le contenu de cette cellule
num = num + '/' + CStr(Cells(lg, t).Value) ' on cree la chaine
End If
Cells(lg, t).Value = num 'on rempli la cellule
Sheets(1).Select ' retour à la page 1
End Sub