Dim k As Byte
For k = 0 To k = 5
If Equip(k) <> "" Then
Sheets("BDD").Activate
Worksheets("BDD").Cells(80, WorksheetFunction.Match(Equip(k), Worksheets("BDD").Range("A80:ZZ80"), 0)).Offset(1, 0).Select
If Selection.Offset(-1, 1) = "Permanent" Then
If Selection.Offset(1, 0) = "" Then
Range(Selection, Selection.End(xlToRight)).Select
Else
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
End If
Selection.Copy
End If
End If
Sheets("Tdb").Activate
Worksheets("Tdb").Cells(52, WorksheetFunction.Match(txtPrenom.Value, Worksheets("Tdb").Range("A52:ZZ52"), 0)).Offset(1, 3).Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).Select
Else
Selection.End(xlDown).Offset(1, 0).Select
End If
ActiveSheet.Paste
Next k