je n arrive pas a ecrire correctement mon range :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Worksheets("Add").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = "Add" & Sheets.Count - 3
ActiveSheet.visible = True
Worksheets("Main").Select
Dim i As Integer
For i = 279 To 500
MsgBox ("G" & i & ":N" & i)
Range("G" & i & ":N" & i).Select
Selection.Row.Insert
Range("G" & i).Value = "Add" & i & "!C5"
Next i
une idee pk sa bug