Private Sub ComboBox1_Change()
Dim NomSal As String
NomSal = ComboBox1.Value
Sheets("Formation").Range("E3").Value = NomSal
Sheets("Formation").Range("C7").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 2)
Sheets("Formation").Range("C8").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 3)
Sheets("Formation").Range("C9").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 4)
Sheets("Formation").Range("C10").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 5)
Sheets("Formation").Range("C11").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 6)
Sheets("Formation").Range("C12").Value = MaRechercheV(NomSal, Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row), 7)
End Sub