XL 2016 Erreur execution macro VBA

Sub Convertir()
With Sheets("2-convertir")
    .Rows(1).ClearContents
    .Cells(1) = Trim(Sheets("1-données").Cells(1))
    .Cells(1).TextToColumns .Cells(1), xlDelimited, Space:=True
End With
End Sub

Sub Convertir_Transposer()
With Sheets("2-convertir")
    .Rows(1).ClearContents 'RAZ
    .Cells(1) = Trim(Sheets("1-données").Cells(1))
    .Cells(1).TextToColumns .Cells(1), xlDelimited, Space:=True
    Sheets("3-mis en forme").Columns(1).ClearContents 'RAZ
    With .UsedRange.Rows(1)
        Sheets("3-mis en forme").Cells(1).Resize(.Columns.Count) = Application.Transpose(.Value)
    End With
End With
End Sub