Bonjour a tous,
tout d'abord, je tiens a precise que je ne m'y connais que tres peu en matiere de VBA. Donc, mon probleme qui me semble absolument trivial mais que je n'arrive pas a resoudre est le suivant.
En voila le debut:

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
Private Sub CommandButton1_Click()

Dim cells_to_print As String

'la, je fais un double d'une feuille excel pour pouvoir manipuler les donnees sans toucher a l'original

    Sheets.Add Type:="C:\Documents and Settings\leroux01\Application Data\Microsoft\Templates\Accord.xlt"

    Sheets("Registration").Select
    Cells.Select
    Selection.Columns.AutoFit
    Selection.Copy
    Sheets("Accord").Select
    ActiveSheet.Paste
    Sheets("Accord").Activate

'c'est ici que le programme bloque(ci-dessous), alors que je veux simplement selectionner la premiere ligne afin de l'effacer
  
    Range("1:1").Select
    Selection.Delete
    Cells.Select
    AxlGetChemistryPicture Columns("A:A")
    Columns("G:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:G").Select
    Selection.NumberFormat = "0.00"
    Columns("V:V").Select
    ...
    ...
Voila. je pense que c'est tout bete, mais je n'y arrive pas.
Je vous remercie d'avance pour votre aide.

Fred.