Problème de copie en VBA

Sub help()

'Saisie du code GTI fournisseur
i = InputBox("Indiquez le code GTI fournisseur", "Code GTI", "")

'Indiquer le nom de la page de donnée
mg = InputBox("Indiquez le nom de la page de donnée", "Nom Page", "t445tjvi")

'Copie les lignes correpondante sur la feuille de visualisation
Sheets(mg).Activate
Dim derlo As Long
derlo = Cells(65536, 3).End(xlUp).Row

'Indiquer dernière date de la plage de donnée
g = InputBox("Indiquez dernière date", "Date", "08/31/2007")

Sheets.Add
ActiveSheet.Name = i

gti = i

r = 1
For p = 1 To derlo
Sheets(mg).Activate
If Cells(p, 5).Value = i Then
Rows(p).EntireRow.Copy
Sheets(i).Select
Range("A" & r).Select
ActiveSheet.Paste
r = r + 1
End If
p = p + 1
Next p

End Sub

Cliquez pour agrandir...