bonjour à tous,
voilà après avoir trié par ordre alphabétique des noms dans la colonne j
je voudrais pouvoir inserer une ligne après tous les noms qui commence par a puis apres tous ceux qui commence par b ...
mais je ne sais pas faire ????
juste un peu d'aide s'il vous plait
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub garniture1()
'
 
' garniture1 Macro
' Macro enregistrée 
'
' Touche de raccourci du clavier: Ctrl+z
'
'Positionner le pointeur sur la première cellule vide
 
  Range("J3").Select
  Selection.End(xlDown).Select
  ActiveCell.Offset(1, 0).Range("A1").Select
  LIGNEFIN = ActiveCell(1, 0).Address()
  FIN = Range(LIGNEFIN).Row
 
' Selectionner et Trier par ordre alphabétique
 
  LIGNEFIN = ActiveCell.Row
  Range("B3" & ":J" & LIGNEFIN).Select
  Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll Down:=-33
 
'trouver la fin des a
 
 
 
 
' Ajouter 1 ligne apres la cellule selectonnee
 
 
    Dim LineRef As Integer
    Dim DefSelectZone As String
    LineRef = ActiveCell.Row
    DefSelectZone = "A" & LineRef & ":D" & LineRef
    Rows(LineRef + 1).Insert Shift:=xlUp
    Selection.Rows.AutoFit
 
 
End Sub