MuscatMimi
XLDnaute Accro
Bonjour a tous
Je viens de trouver ce code et je n'arrive pas a le modifier a mon besoin
Je désire commencer a Copier qu'a partir de la Ligne 10,mais pas a partir de la Ligne 2 comme dans le code
Merci a tous
Cordialement
Je viens de trouver ce code et je n'arrive pas a le modifier a mon besoin
Je désire commencer a Copier qu'a partir de la Ligne 10,mais pas a partir de la Ligne 2 comme dans le code
Sub essai()
Application.ScreenUpdating = False ' gèle l'écran
Sheets("Moi").Range("A2:H2").Copy 'copie la ligne
Sheets("Data").Range("A65536").End(xlUp).Offset(1, O).PasteSpecial xlValue 'collage spécial, uniquement les valeurs sur la première ligne vide
Application.CutCopyMode = False ' supprime les pointillées de la sélection de la feuille Form
Application.ScreenUpdating = True ' dégèle l'écran
End Sub
Merci a tous
Cordialement