Message d'erreur

Sub Oter_Couleur()
Dim n As Long

For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Fill.ForeColor.SchemeColor = 9
Next n
End Sub

Private Sub ComboBox1_Click()
Call Oter_Couleur
n = Feuil2.Cells(ComboBox1.ListIndex + 3, 1)
If n = "" Then Exit Sub
If Left(n, 4) = "FR0" Then
n = Right(n, 1)
Else
If n = "FR2A" Or n = "FR2B" Then
n = Right(n, 3)
Else
n = Right(n, 2)
End If
End If
ActiveSheet.Shapes("FR-" & n).Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("Text Box 95").Select
Selection.Caption = "Département :  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 3) & "  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 4)
'ActiveSheet.Shapes("Text Box 97").Select
'Selection.Caption = "Région :  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 6) & "  " & Feuil2.Cells(ComboBox1.ListIndex + 3, 7)
[A1].Select
End Sub