Sheets("fiche_paie").Select
Range("D6").Select
If ActiveCell.?????? Then
Sheets("donnees").Range("R" & X).Value = Sheets("fiche_paie").Range("D12").Value
Sheets("donnees").Range("S" & X).Value = Sheets("fiche_paie").Range("D13").Value
Sheets("donnees").Range("T" & X).Value = Sheets("fiche_paie").Range("C12").Value
Sheets("donnees").Range("U" & X).Value = Sheets("fiche_paie").Range("G40").Value
Else
If ActiveCell.????? Then
Sheets("donnees").Range("V" & X).Value = Sheets("fiche_paie").Range("D12").Value
Sheets("donnees").Range("W" & X).Value = Sheets("fiche_paie").Range("D13").Value
Sheets("donnees").Range("X" & X).Value = Sheets("fiche_paie").Range("C12").Value
Sheets("donnees").Range("Y" & X).Value = Sheets("fiche_paie").Range("G40").Value