Problème vba excel

Bonjour, j'ai un problème en vba
j'enregistre une macro, je la teste, jusqu'à là tout va bien
mais dès que je l'associe au click sur un bouton, j'ai une errreur qui apparait(Range("C15").Select devient jaune alors qu'il marchait dans la macro)

voici le code
rivate Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
n = Worksheets("feuil2").Range("B16").Value
i = Worksheets("feuil2").Range("B17").Value

If Worksheets("feuil2").Range("B15").Value = 1 Then
Sheets("Feuil2").Select
Range("C15").Select <----------------------------------------------erreur ici
Selection.Insert Shift:=xlDown
Sheets("Feuil1").Select
Range("G10:I10").Select
Selection.Insert Shift:=xlDown
Range("G10").Select
ActiveCell.FormulaR1C1 = "nouveau technicien:"
Range("I15").Select
ActiveSheet.DropDowns.Add(504.75, 118.5, 36, 15.75).Select
Selection.Locked = False
With Selection
.ListFillRange = "Feuil2!$A$3:$A$5"
.LinkedCell = "Feuil2!$C$15"
.DropDownLines = 3
.Display3DShading = False
End With
Range("I10").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("H5").Select
n = n + 1
Worksheets("feuil2").Range("B16").Value = n

Else
...

je ne comprend vraiment pas
merci d'avance