Sub MAJ_EMPL()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Worksheets("Sheet1")
Set F2 = Worksheets("Personnel")
Sheets("Personnel").Range("B3:B500").ClearContents
Dim a As Long
Dim b As Long
Dim debut As Long
For a = 2 To F1.Range("B65535").End(xlUp).Row
debut = Sheets("Personnel").[B1].End(xlDown).Row
If F1.Cells(a, 2).Value = "Assurance Qualité" Then
For b = 2 To 50
If F1.Cells(a, 1).Value = F2.Cells(b, "B") Then
F2.Cells(debut + 1, "B").Value = ""
Else
F2.Cells(debut + 1, "B").Value = F1.Cells(a, 1).Value
End If
Next
End If
Next a
End Sub