Const Kolom1   As String = "E"
Const Vlag1    As String = "D"
Const Kolom2   As String = "I"
Const Vlag2    As String = "J"
Const Bereik   As String = "A4:A9,A12:A17,A20:A25,A28:A33,A36:A41,A44:A49,A52:A57,A60:A65"

Private Sub Worksheet_Change(ByVal Target As Range)
'Voor als er nog geen shape in de bewuste cel staat of de valg niet bestaat
  Dim isect As Range, i As Integer, Kolom As String, Vlag As String, naam As String
  For i = 1 To 2
    Select Case i
      Case 1: Kolom = Kolom1: Vlag = Vlag1
      Case 2: Kolom = Kolom2: Vlag = Vlag2
    End Select

    On Error Resume Next
    Set isect = Intersect(Target, Columns(Kolom).Range(Bereik))
    If Not isect Is Nothing Then
      If isect.Cells.Count = 1 Then
        Shapes(Cells(isect.Row, Vlag).Address).Delete      'Verwijder de shape die ik genaamd heb naar het adres van de cel
        If isect <> "" Then
          naam = isect.Value                               'Pak de naam van het land en copieer de vlag van dat land
          Sheets("Vlaggen").Shapes(naam).Copy
          Cells(isect.Row, Vlag).Select                    'Selecteer de cel naast het land
          Paste                                            'Plaats de vlag in de cel
          Selection.Name = Cells(isect.Row, Vlag).Address  'Verander de naam van de shape in adres van de cel,zodat de volgende keer bij het verandere de juiste cel wordt verwijderd
          Shapes(Cells(isect.Row, Vlag).Address).Left = Columns(Vlag).Left
        End If
        isect.Select                                       'selecteer weer de cel van de landnaam om de selectie van de shape ongedaan te maken
      End If
    End If
  Next
End Sub

 If Target.Column = Kolom Then
 If Target.Column = Columns(Kolom).Column Then

Misschien maak ik er wel een klasse module ervan.