Sub Macro1()
Dim lngCountLigne As Long, lngLigne As Long
'
' Macro1 Macro
' Macro enregistrée le 11/08/2005 par Menneret
'
' Touche de raccourci du clavier: Ctrl+i
'
Application.Goto Reference:='cptes_tele'
With Selection
lngCountLigne = .Count
lngLigne = .Row
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
ActiveCell.Offset(1, 0).Range('A1').Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, 1).Range('A1').Select
noms_tele = InputBox('Entrez le nom du fournisseur')
ActiveCell.FormulaR1C1 = noms_tele
ActiveCell.Offset(-1, 6).Range('A1').Select
Selection.Copy
ActiveCell.Offset(1, 0).Range('A1').Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(-1, 2).Range('A1:E1').Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range('A1:E1').Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
'Application.Goto Reference:='tab_tele'
Range(Cells(lngLigne, 3), Cells(lngLigne + lngCountLigne, 11)) _
.Sort Key1:=Cells(lngLigne, 3), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveCell.Offset(1, 0).Range('A1').Activate
Application.Goto Reference:='cptes_tele'
With Selection
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
End Sub