Function MAJDispo()
'fonction pour l'onglet Dispo CR1
'recherche de la dernière colonne non vide
derniereColonne = Worksheets("Dispo CR1").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
nouvelleColonne = derniereColonne + 1
'l'activation de l'onglet est nécessaire pour la bonne éxecution
Worksheets("Dispo CR1").Activate
'copie de la dernière colonne à coté
Worksheets("Dispo CR1").Range(Cells(1, derniereColonne), Cells(60, derniereColonne)).Copy Worksheets("Dispo CR1").Cells(1, nouvelleColonne)
'renommage au mois en cour
Worksheets("Dispo CR1").Cells(1, nouvelleColonne).Value = Month(Date) & "/01/" & Year(Date)
'recherche de la taille du tableau qui sert de matrice au rechercheV
derniereLigne = Worksheets("log_Dispo").Range("A1").End(xlDown).Address
derniereLigne = Worksheets("log_Dispo").Range(derniereLigne).Row
derniereCol = Worksheets("log_Dispo").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Worksheets("Dispo CR1").Range(Cells(2, nouvelleColonne)).Formula = "=RECHERCHEV($C2;log_Dispo!$A$1:" &_ Cells(derniereLigne, derniereCol).Address & ";7;FAUX)"