Sub Mise_à_jour()
Application.ScreenUpdating = False 'Gèle l'écran
'Je déclare mes variables
Dim SheetClient As Worksheet
Dim SheetSource As Worksheet
Dim ColonneNomClient As String
Dim ColonneNomSource As String
Dim ColonneFinDonnéesSource As String
Dim NbrNomClient As Integer
Dim NbrNomSource As Integer
'J'initialise mes variables
'Feuilles
Set SheetClient = ThisWorkbook.Worksheets(1)
Set SheetSource = ThisWorkbook.Worksheets(2)
'Autres
ColonneNomClient = "A:A"
ColonneNomSource = "A:A"
ColonneFinDonnéesSource = "D:D"
'On compte le nombre de personnes en source
NbrNomSource = ComptCellNonVideA(SheetSource, Columns(ColonneNomClient).Column)
MsgBox NbrNomSource & " Personnes comptées en liste source"
'On compte le nombre de personnes en client
NbrNomClient = ComptCellNonVideA(SheetClient, Columns(ColonneNomSource).Column)
MsgBox NbrNomClient & " Personnes comptées en liste client"
'On insère une colonnes temporaires après les données
InsertColonneApres SheetSource, ColonneFinDonnéesSource, 1
'Comparaison des données
'Comparer SheetSource, SheetClient, ColonneNomSource, ColonneNomClient, ColonneFinDonnéesSource + 1, 1, NbrNomSource
Application.ScreenUpdating = True 'DéGèle l'écran
End Sub