Bonjour,  
 
Est ce qu'il est possible d'inserer automatiquement  
1 nouvelle ligne toutes les 2 lignes sur toute une feuille ???  
 
Départ :  
A : Jean-Paul  
B : Michel  
C : Sabine  
D : Christelle  
E : Fançoise  
 
Arrivée :  
A : Jean-Paul  
B : Michel  
C :  
D : Sabine  
E : Christelle  
F :  
G : Françoise  
 
Ma feuille contient 750 lignes à décaler comme ça...  
Merci des tuyaux.

Bonjour,
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/06/2006 par PAPOU
'
 Range("A1" ).Activate
    ActiveCell.CurrentRegion.Select
    'MsgBox ActiveCell.CurrentRegion.Rows.Count
    nombrel = ActiveCell.CurrentRegion.Rows.Count / 2
Range("A3" ).Select
    For i = 1 To nombrel
    Selection.EntireRow.Insert
    Selection.Offset(3, 0).Select
    Next i
     
End Sub
 
 
A tester sur une copie du fichier (Sans garantie parce que vite fait). Il ne doit pas y avoir de ligne vierge dans la liste.
Avec peut-être à la fin une ligne à corriger.
Cordialement