Un formulaire qui ne répond pas

Désolé de vous avoir pas répondu un plus tôt ,j'ai essayé votre méthode mais ça m'affiche le message d'erreur suivant: erreur définie par l'application ou par l'objet

Pas bonjour non plus !

Non, la fonction Stop mise en début de proc ne peut en aucun cas générer une erreur.
eric

excusez moi ,Bonjourrr je suis trop stressée lol.En faite c'est quand j'ajoute quelques lignes de code sur mon bouton qui marchait bien que survient le problème de mon formulaire:

'Cette variable représente le numéro de la ligne correspondant à une occurence de la reference à modifier
            Dim LigneOccurence As Long
        'Initialisation, début ligne données
        LigneOccurence = 10
        'Déclaration de la variable LigneFinDonnees de Type Long
        'Cette variable représente le numéro de la ligne où finit le contenu des données
        Dim LigneFinDonnees As Long
        'Affectation du numéro de la ligne où finit le contenu des données à la variable LigneFinDonnees
        LigneFinDonnees = LesPlans.[A1048576].End(xlUp).Row
         'On parcours l'ensemble des lignes à la recherche des occurences
            While (LigneOccurence <= LigneFinDonnees)
            'Si une occurence est trouvée
                If (Cells(LigneOccurence, 2) = NomSiteAvantModification) Then
                 
                    'On remplace chaque occurence trouvée avec les nouvelles valeurs modifiées
         
         With LesPlans
                      If (NomSiteAvantModification <> Me.NomSite_Champ) Then
                                .Cells(LigneOccurence, 2) = Me.NomSite_Champ
                     End If
                       If (NomResponsableSiteAvantModification <> Me.NomResponsableSite_Champ) Then
                        If (PrenomResponsableSiteAvantModification <> Me.PrenomResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 18) = Me.NomResponsableSite_Champ & " " & Me.PrenomResponsableSite_Champ
                        End If
                        End If
                        If (NumeroInterneResponsableSiteAvantModification <> Me.NumeroInterneResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 19) = Me.NumeroInterneResponsableSite_Champ
                        End If
                         If (NumeroPortableResponsableSiteAvantModification <> Me.NumeroPortableResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 20) = Me.NumeroPortableResponsableSite_Champ
                        End If
                         If (CourrielResponsableSiteAvantModification <> Me.CourrielResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 21) = Me.CourrielResponsableSite_Champ
                        End If
                        If (NomRepresentantResponsableSiteAvantModification <> Me.NomRepresentantResponsableSite_Champ) Then
                        If (PrenomRepresentantResponsableSiteAvantModification <> Me.PrenomRepresentantResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 22) = StrConv(Me.NomRepresentantResponsableSite_Champ, vbUpperCase) & " " & Me.PrenomRepresentantResponsableSite_Champ
                        End If
                        End If
                        If (NumeroInterneRepresentantResponsableSiteAvantModification <> Me.NumeroInterneRepresentantResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 23) = Me.NumeroInterneRepresentantResponsableSite_Champ
                        End If
                         If (NumeroPortableRepresentantResponsableSiteAvantModification <> Me.NumeroPortableRepresentantResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 24) = Me.NumeroPortableRepresentantResponsableSite_Champ
                        End If
                         If (CourrielRepresentantResponsableSiteAvantModification <> Me.CourrielRepresentantResponsableSite_Champ) Then
                            .Cells(LigneOccurence, 25) = Me.CourrielRepresentantResponsableSite_Champ
                        End If
                         If (InformationsUtilesSiteAvantModification <> Me.InformationsUtilesSite_Champ) Then
                            .Cells(LigneOccurence, 26) = Me.InformationsUtilesSite_Champ
                        End If
                         End With
                End If
                Wend
                LigneOccurence = LigneOccurence + 1
       
   
        'Tri des sites  par noms
        '/ ! \ ATTENTION / ! \
        'Le tri s'effectue uniquement sur toutes les lignes et colonnes allant de la colonne A jusqu'à la colonne ZZ
        'Si vos données vont plus loins que la colonne ZZ, il faut impérativement mettre à jour cette ligne
        'Sinon il y a un grand risque pour que les données de la base se mélangent
        '/ ! \ ATTENTION / ! \
         'Sélection de la feuille "Plans"
        LesPlans.Activate
        [A10:ZZ1048576].Sort [A10]
  
        'Ferme le formulaire après la modification dans la base de données
        Unload Me
    End If
    'End If
End Sub

Je répète donc ma réponse :
tu mets un Stop en début de proc et tu fais en pas à pas en contrôlant les valeurs de tes variables, à commencer par celles de la ligne en erreur.
Ce n'est pas avec un extrait de ton code sans savoir si tes variables sont bien initialisées qu'on peut répondre.
Par exemple LesPlans ? C'est quoi et quelle valeur a-t-il quand tu arrives dessus ?
Mis comme ça c'est sensé être un codename mais sans classeur on ne peut que supposer....
En plus tu n'indiques même pas la ligne en erreur...
eric

LesPLANS c'est une feuille .En faite ça ne m'affiche même pas l'erreur ,quand j'exécute le formulaire ,il m'écrit en dessus que le formulaire ne répond pas et je suis obligé de faire un ctrl alt suppr pour que je puisse sortir.
pourrais je vous envoyer mon fichier