probleme avec range

je n arrive pas a ecrire correctement mon range :

Code:

---

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

SAlut
Le tag délestage ? c'est une erreur ou bien ?
Dans le doute
Je pense que c'est par ce que tu transtype pas tes i

Code:

---

Range("G" & cstr(i) & ":N" & cstr(i)).Select

---

Mais je peux te proposer une autre façon de faire ;)

Code:

---

Range(cells(i,"G"),cells(i,"N")).select

---

A++
Qwaz