BDD et TITRES de COLONNES

Sub Villes()
    Dim sVille As String
    Dim wsA As Worksheet, wsV As Worksheet, wsQ As Worksheet
    
    Set wsA = Sheets("Accueil")
    Set wsV = Sheets("Villes")
    Set wsQ = Sheets("Quartiers")
    
    ' Ajoute la ville inscrite dans Accueil à la suite dans
    ' l'onglet Villes et Quartiers
    ' Aucune vérification si la ville est déjà inscrite
    sVille = wsA.Range("H13")
    wsV.Range("A60000").End(xlUp).Offset(1, 0) = sVille     'dernière ligne de la colonne A
    wsQ.Range("IV1").End(xlToLeft).Offset(0, 1) = sVille    'dernière colonne de la ligne 1
    wsA.Range("H13").ClearContents
    wsA.Range("A1").Select
    
End Sub

Sub Quartiers()
    Dim sVille As String, sQuartier As String
    Dim wsA As Worksheet, wsV As Worksheet, wsQ As Worksheet
    Dim rg As Range, rgF As Range
    
    Set wsA = Sheets("Accueil")
    Set wsV = Sheets("Villes")
    Set wsQ = Sheets("Quartiers")
    
    ' Trouve la ville et ajoute le quartier
    ' Aucune vérification à savoir si le quartier existe déjà
    sVille = wsA.Range("H13")
    sQuartier = wsA.Range("H15")
    
    Set rg = wsQ.Range("A1:IV1")        'Plade de recherche sur la ligne 1
    Set rgF = rg.Find(sVille, , xlValues, xlWhole)  'Cherche la ville
    If rgF Is Nothing Then
        MsgBox "Ville non trouvée"
        Exit Sub
    Else
        rgF.Offset(10000, 0).End(xlUp).Offset(1, 0) = sQuartier 'Ajout du quartier à la suite
    End If
    
    wsA.Range("H13").ClearContents
    wsA.Range("H15").ClearContents
    wsA.Range("A1").Select
  
End Sub