Un autre problème surgit
Lorsque je lance la macro Mise à jour, celle-ci enclenche :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Code de la macro Import :
Sub Import() '1
Application.ScreenUpdating = False
If Range("A2") <> "" Then Range("SelImport").Clear
NB_LIGNES = Range("Nom").Rows.Count
For I = 1 To NB_LIGNES
' For I = 1 To Range("Nom").Rows.Count Step 1
With Sheets("Visite")
If .Range("A2") = "" Then
Range("Nom").Rows(I).Copy Destination:=.Range("A2")
Range("Tel").Rows(I).Copy Destination:=.Range("C2")
Range("Adresse").Rows(I).Copy Destination:=.Range("A3")
Else
Range("Nom").Rows(I).Copy Destination:=.Range("A300").End(xlUp).Offset(1, 0)
Range("Tel").Rows(I).Copy Destination:=.Range("C300").End(xlUp).Offset(1, 0)
Range("Adresse").Rows(I).Copy Destination:=.Range("A300").End(xlUp).Offset(1, 0)
End If
End With
Next I
Mfc
Centco
Range("A2").Select
CreateObject("Wscript.shell").Popup "La liste nominative actualisée est en corrélation avec la Base." & Chr(10) & Chr(10) & "Sélectionnez ou supprimez vos visites par double clic en colonne Sel." & Chr(10) & Chr(10) & "Modifiez les dates si besoin et cliquez sur Imprimer.", 4, "APE Marguerittes", vbExclamation
Application.ScreenUpdating = True
End Sub
Cette macro est sur la même feuille dans un module
Je pense que cela provient de : SelectionChange