Sub Macro2()
[B]If (Right(ActiveSheet.Name, 2)) Like "##" Then
ligne = Right(ActiveSheet.Name, 2) + 5
Else
ligne = Right(ActiveSheet.Name, 1) + 5
End If[/B]
Range("b9").Copy Sheets("SNEC FR_CR").Range("F" & ligne)
Sheets("SNEC FR_CR").Select
Range("F" & ligne).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & "SNEC-2007-" & numli & "'!A1"
End Sub